if($usermail ne "") {

##</code><code>##

use Data::Dumper;

print Dumper \@addresses;

##</code><code>##

warn "\$usermail = '$usermail'\n";