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