Select Code to Download

open IN, '<', $ARGV[0];
my %hash1;
...
    $hash2{$header} = 1;   
}
close IN;

my @threads = ("1","2");

...
    close IN;
    return \%hash;
}