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

dump_hash(\%hash);

##</code><code>##

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

dump_hash(%hash);