Select Code to Download

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;