Select Code to Download

my @aRecords;
my $iRecord=0;
...
# index 1 (fields are numbered starting at 0)

my @aSortedRecords = sort { $a->[1] <=> $b->[1] } @aRecords;