Select Code to Download

use strict;
use warnings;
...
}

print @newList, "\n";

1,2,3,6,9,10,13,15,19,20,21,22
1-3,6,9-10,13,15,19-22