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