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