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

##</code><code>##

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

##</code><code>##

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