Select Code to Download

use Data::Dumper;

...
print Dumper(\%uhash);

print "done\n";

$VAR1 = bless( {
                 'key1' => 'val1',
...
          'key2' => 'val2'
        };
done

my %ahash = (
   key1 => 1,
   key2 => 2
);
bless \%ahash, 'FOO';

use Devel::Peek 'Dump';
use Data::Dumper;
...
print "ORIGINAL HASH (after blessing, note it's now been associated wi
+th the 'FOO' package!!):\n";
print Dumper(\%ahash) ."\n";
print Dump(\%ahash) ."\n\n";

ORIGINAL HASH:
$VAR1 = {
...
      PV = 0x952e8 "val2"\0
      CUR = 4
      LEN = 5

# Under Construction