my @seq = sort { $a <=> $b } map /(\d+)-(\d+)/ ? $1 .. $2 : $_, split /,\s*/, $comb; [download]
In reply to Re^2: number sequence by Anno in thread number sequence by nobot