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;