C:\>perl -E "my @arr=qw(a b c d); my $a; for $a(@arr) {say $a;}"
a
b
c
d

<c>C:\>perl -E "my @arr=qw(a b c d); my $a; foreach $a(@arr) {say $a;}"
a
b
c
d

##</code><code>##

C:\>perl -e "foreach ($i=0;$i<10;$i++) { print $i }" # NB: '-e' & 'print'
0123456789

##</code><code>##

C:>perl -E "for ($i=0;$i<10;$i++) { say $i }" # Irrelevant differences '-E' & 'say'
0
1
2
3
4
5
6
7
8
9