process($data_ref, \@set_up, $template, $fd_out);

sub process
{
     my ($data, $set_up, $template, $fd_out) = @_;

     foreach my $record (@$data)
     {
          # ...
     }
}