Select Code to Download

for (sort third_field <INPUT>) {
  print "Record: $_";
}
...
  my $y = (split ' ', $b)[2];
  $x <=> $y;
}

for (by_third_field <INPUT>) {
  print "Record: $_";
}
...
  map { [ $_, split ] }
  @_;
}