Select Code to Download

for ($i = 0; $i <= $#sortedNames; $i++) {
  @temp = split/,/, $sortedNames[$i][0];
...
$output = reverse $toOutput;
print NEWFILE "$output\n";
}