use Data::Dumper;

my $bhash = bless {
                  key1 => 'val1',
                  key2 => 'val2'
                 }, 'FOO';

my %uhash = %$bhash;

print Dumper($bhash);
print Dumper(\%uhash);

print "done\n";