Select Code to Download

my @sorted = map { 
               $_->[2] 
...
                 map {
                   [ split( /-/, $_ ), $_ ]
                 } @unsorted;

my @sorted = sort { my @a = split /-/, $a;
                    my @b = split /-/, $b;
                    $a[0] <=> $b[0] or
                    $a[1] <=> $b[1]
                  } @unsorted;