$ perl -MO=Deparse -e'$_++ for @a;'
++$_ foreach (@a);
-e syntax OK

$ perl -MO=Deparse -e'map { $_++ } @a;'
map {$_++;} @a;
-e syntax OK