Win8 Strawberry 5.8.9.5 (32)  Tue 11/24/2020 17:09:57
C:\@Work\Perl\monks
>perl -Mstrict -Mwarnings -l
my $x = 1;
my $y = 2;
my @z = (3, 4, 5);

$_ += 100 for @z, $x, $y;

print "$x, $y, (@z)";

for ($x, @z, $y) { $_ += 100; }

print "$x, $y, (@z)";
^Z
101, 102, (103 104 105)
201, 202, (203 204 205)