sub mailNaughtyUser 
    {
          my @addies = shift;  #my @addies=@_; ?
          my %Seen;
          foreach my $address(@addies) 
          {
           next if $Seen{$Address}++;
           #   
           # Do that thing you do best once on every address  
           #
          }
    }