foreach (@emails){
    next unless $_;
    next if $_ =~ $ignore;
    push(@newemails, $_);
  }

##</code><code>##

print Dumper \@emails;

##</code><code>##

my ($email, $domain) = split(/\@/, $newemails[0]);

##</code><code>##

&mail($newemails[0], $domain) if $newemails[0] and $domain;