Select Code to Download

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

sub print_hash {
    my $href = shift;
...
        print "$key\t=>$val\n";
    }
}