Try this:

foreach $k (keys %$hash) {
   print $k, "=>", $hash->{$k}, "\n";
}
[download]

-- vek --