my $x = do { no strict 'refs'; \*{'foo'} }; undef *$x;