foreach my $mail (@_) {