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

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

##</code><code>##

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