foreach my $mail ( @mail ) { 

##</code><code>##

my @mail;
@mail = @_;

##</code><code>##

foreach my $mail (@_) {