Assuming you would like to read the email addies into an array via a filehandle, you could always use rand. Like this : -

srand;   # initialize random UPDATE : This is only needed for earlier 
+versions of Perl, thanks to Albannach for telling me :)

$random_email_address = $email [rand @email]; #assuming your array of 
+email addresses is named @email

print $random_email_address;
[download]

This will do the random bit for you, in a very simple, low-level way. I'm sure someone will post some hardcore code that randomises via regex and sorts out your size issues with some DB stuff etc...

Just my two cents...

Azatoth a.k.a Captain Whiplash

Get YOUR PerlMonks Stagename here!
Want to speak like a Londoner?