Select Code to Download

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

hash = HASH(0x490d30)
1. do_something(): HASH(0x490d30)
...
  'a' => 'alpha',
  'b' => 'beta'
}