假設一個hash的雙重嵌套，如何輸出這個hash的內容呢？
sub outmap
{
my %hash = @_;
my %submap;
foreach my $key (sort keys %hash)
{
my %subhash = %{$hash{$key}}; # 這一步很關鍵，有點類型轉換的意思
print $temptext $key,"\n";
foreach my $key (sort keys %subhash)
{
print $temptext $key,"\n";
}
}
}