Untitled

use Inline::Perl5;

my $p = Inline::Perl5.new;

my (%a, %b) = $p.run(q:to/END/);
use strict;
use warnings;
my %a = (a => 1, aa => 10);
my %b = (b => 2, bb => 20);
[\%a, \%b];
END


say %a.perl;
say %b.perl;