use Devel::Peek 'Dump';
use Data::Dumper;

my %ahash = (
             key1 => 'val1',
             key2 => 'val2'
             );

print "ORIGINAL HASH:\n";
print Dumper(\%ahash) ."\n";
print Dump(\%ahash) ."\n\n";

my $bhash = bless \%ahash, 'FOO';

print "ORIGINAL HASH (after blessing, note it's now been associated with the 'FOO' package!!):\n";
print Dumper(\%ahash) ."\n";
print Dump(\%ahash) ."\n\n";