You can delete it from the symbol table:

use strict;
use warnings;
sub foo {
    delete $::{foo};
    print "alive\n";
}
foo();
eval "foo()" or die $@;
[download]

Note that I put the second call to foo into an eval because Perl looks up the symbol at compile type.