Select Code to Download

#!/usr/local/bin/perl
use strict;
...
    map {$_->[0]} sort {$a->[1] cmp $b->[1]} map {[ $_ , (split '-')[1
+] ]} @data;

print "$_\n" for @sorted;