% perl -Mstrict -Mwarnings -E 'sub g { say }; sub f0 { local $_ = 42; g }; sub f1 { my $_ = 23; g }; f0; f1'
42
Use of uninitialized value $_ in say at -e line 1.