I haven't seen anyone else point out yet that you reject perfectly valid and in-use email addresses. Please look in to Email::Valid, and you'll also have to rethink your log and how you generate your confirmation message as a result.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.