Select Code to Download

\sub {<=>}

#!/usr/bin/perl
use strict;
...
my @sorted = sort { $sorter->($a->[$elem], $b->[$elem]) } @records;

say join "\t", @$_ for @sorted;