my ($error) = 0;
    my (@other_addresses) = split( /\n/, $email_list );
        foreach (@other_addresses) {
                chomp($_);
                print $_;
                $error++ unless(Email::Valid->address($_));
        }
    $error_message .= "$error Email list contains an invalid email address.<br>" unless( $error < 1 );