散列的数组

jrhmpt01:/root/wx# cat k3.pl
@var=({a=>1,b=>2},{a=>3,d=>4});
print @var;
print "\n";
foreach (@var){print "\$_ is $_\n"};
print "2222222222222222222\n";
foreach (@var){print "\$_ is $_->{a}\n"};

jrhmpt01:/root/wx#
jrhmpt01:/root/wx# perl k3.pl
HASH(0x777d48)HASH(0x7941b8)
$_ is HASH(0x777d48)
$_ is HASH(0x7941b8)
2222222222222222222
$_ is 1
$_ is 3