If you really want a global $i under strict you need to use:

$::i       # implicit, 
$main::i   # explicit
[download]

Either will do, but as others have said, avoid globals if you don't need them. ie:

#!/usr/bin/perl -w

use strict;

my @array = qw(one two three);

&one;

sub one { 
  local $::i;
  foreach $::i(@array) {
    &two;
  }
}

sub two {
  print "$::i\n";
}
[download]

works, but I would avoid creating a var if you don't need to. Eg:

#!/usr/bin/perl -w

use strict;

my @array = qw(one two three);

one();

sub one { 
  foreach (@array) {
    two($_);
  }
}

sub two {
  print "$_[0]\n";
}
[download]

TIMTOWTDI :)

cLive ;-)