use strict; my $i; sub bar { print "<$i>" } for $i (1..3) { bar } # already 'my' for my $i (1..3) { bar } print "'$i'" __END__ <><><><><><>''