Select Code to Download

use strict;
use warnings;
...
for (my $i=0; $i<@merged; $i+=2) {
  print $merged[$i], "-", $merged[$i+1], "\n";
}

pb> perl 752436.pl
0-22
901-7999
10001-39886
1000501-100000000