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