sub trim {
   my ($s) = @_;
   for ($s) {
      s/^\s+//;
      s/\s+$//;
      return $_;
   }
}

...
my @other_addresses = map trim, split( /\n/, $email_list );
...