my $x = \*foo;
undef *$x;