sub foo {
    # ...
    local $_ = "whatever";
    $_ = undef;
}