perl -le '$foo = "bar"; $h->{foo} = \$foo; undef $h->{foo}; print "foo :$foo:"'
foo :bar:

##</code><code>##

perl -le '$foo = "bar"; $h->{foo} = \$foo; undef ${$h->{foo}}; print "foo :$foo:"'
foo ::