sub do_something
{
    my $h = shift;

    print '1. do_something(): ' . $h . "\n";

    %{ $h } = ( a => 'alpha', b => 'beta' );

    print '2. do_something(): ' . $h . "\n";
    print Dumper( $h );
}