my ($email, $domain) = split(/\@/, $newemails[0]);