If you don't like the output of Data::Dumper and just want a simple key/value dump (without any deep datastructure exploration), you could apply this function:

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

It could also be written like this:

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