Select Code to Download

for my $record (@sorted) {
    print @$record;
...

print $sorted[0][2],
      $sorted[2][1];