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

##</code><code>##

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