print MAIL "To: $email_list[$recipient], $email_list[$recipient_bcc]\n";