Select Code to Download

use strict;
use warnings;
...
foreach my $pair (sort {$a->[1] cmp $b->[1]} @sort_data) {
    print "$pair->[0]";
}

BUT, It runs with no errors, but nothing prints.
I tried your code, and it seems quite simple, hence, efective.
At the moment, due to the small file size, sort time is unimportant.
At some point, when I get to that stage, the sorted data will be reuse
+d.