my %h = (1, 2); print bless(\%h), $/; %h = undef; print bless(\%h), $/; __END__ main=HASH(0x99ae63c) main=HASH(0x99ae63c)