my ($foo,$bar,$baz,$i);
for my $quux ($foo, $bar, $baz) {
    $quux = $i++;
}
print "$foo $bar $baz\n";
__END__
0 1 2