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