sub print_hash {
    my $href = shift;
    print "$_\t=> $href->{$_}\n" for keys %{$href};
}

##</code><code>##

sub print_hash {
    my $href = shift;
    while( my( $key, $val ) = each %{$href} ) {
        print "$key\t=>$val\n";
    }
}