Select Code to Download

my $ar_data = [];
#Opening, reading, and extracting column content of each concord.n.txt
+ file
...
    push(@{$ar_data}, $hr_output);
    close ($fh);
}

if (@{$ar_data}) {
    # If there is any data, prepare the query
...
        }
    }
}