% perl -MO=Deparse -Mstrict -le 'my $rv = 42 for (1); print $rv'                                                              
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
foreach $_ (1) {
    my $rv = 42;
}
print $rv;
-e syntax OK