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