my @seq = sort { $a <=> $b }
    map /(\d+)-(\d+)/ ? $1 .. $2 : $_,
    split /,\s*/, $comb;