Select Code to Download

my %csv_recipients = ( 
    'john_q_public@foobar.com' => 'a.csv',
    'jane_q_public@xyz.com' => 'b.csv',
    'some_other_address@example.com' => 'c.csv'
    # and so on
);

while (my ($recipient, $filename) = each %csv_recipients) {
    archive_results($recipient, $orig_file, $filename, $subject);
}