摘要：
my $aref =[[1,2,3],[4, 5, 6],[7, 8, 9]];foreach my $key (@{$aref}){ my $b=$key->[0]; print $b,"\n";}147my @difs;my (%records,%record1,%record2);@difs1= qw /a b c/;@difs2= qw /d e/;$record1{"xg3"}=\@difs1;$record1{"xg5"}=[@difs2];print "test value:",$record1 阅读全文