Baah, this gives me creeps.

Does this give you also the creeps?

$ perl -e 'for $x (1 .. 9) {$x = 2; foo ()} sub foo {print $x}'
222222222
$ perl -e 'for $x (1 .. 9) {my $x = 2; foo ()} sub foo {print $x}'
123456789
[download]

Or is it the fact that Perl just got a little bit more regular that creeps you out?