Select Code to Download

while (my $line = <INFILE>) {
    my @line = split /\t/, $line;
...

    push @lines_of_file, \%hash;
}

while (my $line = <INFILE>) {
    my %hash;
...

    push @lines_of_file, \%hash;
}