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