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