#!/usr/bin/perl -w

use strict;

our $i;       # Predeclare $i as a global, so
              # that strict doesn't complain.

my @array = qw(one two three);

&one;

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

sub two {
  print "$i\n";
}