perlリファレンスインスタンス

my $aref =[[1,2,3],[4, 5, 6],[7, 8, 9]];

foreach my $key (@{$aref})

{

    my $b=$key->[0];

    print $b,"
";

}

147

my @difs;

my (%records,%record1,%record2);

@difs1= qw /a b c/;

@difs2= qw /d e/;

$record1{"xg3"}=\@difs1;

$record1{"xg5"}=[@difs2];

print "test value:",$record1{"xg5"}[1],"
";

print "-----------------------------2
";

while(($key,$value)=each %record1){

  print "$key:";

#  for(my $i=0;$i<scalar @$value;$i++){

#     print @$value," ";

#  }

my @aa=@{$value};

print @aa;

  print "
";