Select Code to Download

%test_hash = ();
for (@array) {
...
    print @{$_};
    $test_hash{$_->[10]} = 1;
}

my %test_hash = ();
while (my $cols = $csv->getline($fh)) {
...
    }
    print join(' ',$cols->[0],$cols->[1],$cols->[7],$cols->[9],$cols->
+[13],$cols->[18],$cols->[19]),"\n";
}