#!/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";    
}                           }

##</code><code>##

45                         0
45                         1    
45                         2    
45                         3    
45                         4    
45                         5    
45                         6    
45                         7    
45                         8    
45                         9    
$i=45                      $i=45

##</code><code>##

my $i = 45;
for (0..67) {
  my $i = $_;
  ...
}

##</code><code>##

our $i = 45;
for (0..67) {
  local $i = $_;
  ...