Yes, looks like it works. I'd prefer to expand the range format ("10-66") after the split:

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

Anno