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

dump_hash(%hash);