Select Code to Download

process($data_ref,\@set_up,$template,*OUT);
# Process
...
    foreach my $record (@data) {
        --do things--}
}

    my $data_ref = shift;     #Big array

    foreach my $record (@{$data_ref}) {
        -- do things more efficiently --
                }