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