$ 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