lanx@ubuntu:~$ perl
our $i;
for $i (1..9) {
  tst();
}
sub tst {
  print $i;
}
123456789
lanx@ubuntu:~$ perl
my $i=42;
for $i (1..9) {
  tst();
}
sub tst {
  print $i;
}
424242424242424242