use strict;
our $i;

sub bar { print "<$i>" }

for $i (1..3) { bar }    # localized
for my $i (1..3) { bar }
print "'$i'"
__END__
<1><2><3><><><>''