$x = *foo;
undef &$x;