Select Code to Download

foo     73
bar     35
word    27
blah    23
...

for(@files){
  open IN, $_;
  while(<IN>){
...
for(@i){
  print OUT "$q[$_]\t$p[$_]\n";
}