perl的foreach循环的坑

最近在写perl脚本的时候用foreach遍历hash的时候，出现遇到了一个问题，就是说当hash为一层的时候，并不会有问题，但是当hash类型结构比较复杂的时候，就会有需要注意的地方了。

还是举例子说明最实际一些了，例如下面的这个%hash

 my %hash;

 %hash = ("小明"=>{'语文'=>, '数学'=>},
         "小刚"=>{'语文'=>, '数学'=>});

 foreach my $key ( keys %hash )
 {
     print "$key:\n";
     my %subhash = $hash{$key};
     foreach my $subkey ( keys %subhash )
     {
         print "\t$subkey => $subhash{$subkey}\n";
     }
 }

一开始我就是这样来写的，觉的很正常啊，就是普通的嵌套循环呗，但是一执行，就开始报错了，提示$subkey是一个hash类型，后来在网上找了半天找到了一个例子，明白了怎么回事了，

修改如下：

my %hash;

%hash = ("小明"=>{'语文'=>, '数学'=>},
        "小刚"=>{'语文'=>, '数学'=>});

foreach my $key ( keys %hash )
{
    print "$key:\n";
    my $subhash = $hash{$key};
    foreach my $subkey ( keys %$subhash )
    {
        print "\t$subkey => $$subhash{$subkey}\n";
    }
}

在第二次遍历hash的子集的时候要吧$hash看成一个整体，弄明白了这个了，也给自己记录一个下。