散列的数组

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


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