my $addr = refaddr($hm);
undef $hm;