my $mail = "@_";

##</code><code>##

my $mail = @_[0];