散列的数组

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