多维哈希表访问例子 呵呵!

#!/usr/bin/perl

%hash;
$hash{1}{1}=1;
$hash{1}{2}=4;
$hash{1}{3}=6;
$hash{2}{1}=4;
$hash{2}{2}=2;
$hash{2}{3}=5;
$hash{3}{1}=8;
$hash{3}{2}=9;
foreach $key (keys %hash){
    foreach $keytemp(keys %{$hash{$key}}) {
     print "$hash{$key}{$keytemp}/n";
    }

}