First of all, use split /\n/. Don't put a literal newline in your code -- that's ugly. Second, the chomping is entirely unnecessary if you're splitting the string on newlines. Third, are you entirely sure the email addresses contain validly formatted addresses and nothing else? I'd suggest doing:

foreach (@other_addresses) {
  my $ok = Email::Valid->address($_);
  print "address($_) = $ok\n";
}
[download]