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