This is a pretty well-known problem:

sub mailNaughtyUser {
    my %addies = map {($_ => 1)} @_;
    foreach my $address (keys %addies) {
        mail_nastygram $address;
    }
}
[download]

After Compline,
Zaxo