$ perl -MO=Deparse -e 'sub foo { 1 for 1 } foo'
sub foo {
    foreach $_ (1) {
        '???';
    }
}
foo ;
-e syntax OK