sub f     {say @_ ? $_[0] : $_}
sub g (_) {say @_ ? $_[0] : $_}

$_ = "outer";
{
    my $_ = "inner";
    f;
    g;
}
__END__
outer
inner