Select Code to Download

my $x={};
my $y={};
...

my $ar1=[$x,$x];
my $ar2=[$y,$z];

$_->[0]{a}='foo' for $ar1,$ar2;