sub dump_hash {
   my ($hash) = @_;
   foreach my $key (keys %$hash) {
      print $key, '=>', $hash->{$key}, "\n";
   }
}

dump_hash(\%hash);