#!/usr/bin/perl
use strict;
our $uid;
my @array = ("one","two","three");

for (my $i = 0; $i < @array; $i++) {
  local $uid = $array[$i];
  print "uid in loop=$uid\n";
  # prints each value of $uid as expected
  mail($uid);
}

sub mail {
  # never prints the value of $uid ? ?
  print "uid in sub=$uid\n";
}