#!/usr/local/bin/perl -w    #!/usr/local/bin/perl -w
use strict;                 use strict;             

my $i = 45;                 our $i = 45;

for $i (0..67) {            for $i (0..67) {
  last if $i == 10;           last if $i == 10;
  investigate();              investigate();
}                           }
print $i."\n";              print $i."\n";

sub investigate {           sub investigate {
  print "\$i=$i\n";           print "\$i=$i\n";    
}                           }