Select Code to Download

my @records;
{
...
                  sort { $a->[1] <=> $b->[1] }
                  map { [ $_, (split /:\s*/, $_->[3])[1] ] }
                  @records;