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