my $foo = "foo";
for my $bar ($foo) {$bar = "bar"}
print $foo;
__END__
bar