print $_ for qw(foo bar baz);
print $_ foreach qw(foo bar baz);

$ perl -MO=Deparse foo.pl
foreach $_ ('foo', 'bar', 'baz') {
    print $_;
}
foreach $_ ('foo', 'bar', 'baz') {
    print $_;
}
foo.pl syntax OK