$ perl
my ($i, $x, $y);

for $i ($x, $y) {
  $i = 5;
}

print "=$x=$y=\n";
^D
=5=5=