Something like this: ?

    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  
           #
          }
    }
[download]

btw that my @addies=shift; looks like a really neat trick
coz I don`t get it ;))

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;