my $comb = '18,5,1790,19-66,212,213';

$comb =~ s/-/../g;

my @uns;
push @uns, eval "($_)" foreach split ',', $comb;

print join "\n", sort { $a <=> $b } @uns;