Source
foreach $firstkey (keys %HOGE){
print "<b>$firstkey:</b><br>";
foreach $secondkey (keys %{$HOGE{$firstkey}}){
print "$secondkey = $HOGE{$firstkey}{$secondkey}<br>";
}
print "<br>\n";
}
Reference
お気楽極楽スクリプト - スクリプト制作メモ - Perlの変数についてhttp://www.bayashi.net/st/pdmemo/variable.html