Select Code to Download

@ACCTS = ("1234", "5678", "6959");
open(IN,"InFile.txt");
...
     }
  }
}

@ACCTS = ("1234", "5678", "6959");
open(IN,"InFile.txt");
...
foreach $key (sort keys %acct){
   print "$key,$acct{$key}[0]\n";
}