Re^4: Variable being clobbered by a seemingly unrelated while loop

I guess tobyink means:

my $x='foo';
for $x ('bar') {
    print "$x\n";
}
print "$x\n";
__END__
bar
foo
[download]

Comment on Re^4: Variable being clobbered by a seemingly unrelated while loop Download Code