Well, you cannot (unless you want to include fatal (run time) errors in 'not getting the same result').

$ perl -wE 'sub for {say "Hello"} &for'
Hello
$ perl -wE 'sub foreach {say "Hello"} &for'
Undefined subroutine &main::for called at -e line 1.
[download]