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


##</code><code>##

address(test@test.com ) = error 1
address(test2@test.com) = test2@test.com error 1
There was an error with your form submission.

1 Email list contains an invalid email address.