perl中散列表元素为数组

之前傻乎乎的以为有什么动态内存分配

my (%hash);
my (@a);
my (@b);

##把‘a’=> (1,2)
@a=(1,2);
##自动分配内存
@{$hash{'a'}} = @a;

@a=(3,4);
@{$hash{'b'}} = @a;

$na = "a";
if(!exists($hash{$na})){
  @b = @{$hash{$na}};
}
else{
@b = @{$hash{'b'}};
}

print "@b\n";