for (my $i = 0; $i < @range; $i++) {
  my $e = $range[$i][1];
  for(my $j = $i+1; $j < @range; $j++) {
    unless($range[$j][0] > $e) {
      if ($range[$j][1] > $e) {
        $e = $range[$i][1] = $range[$j][1];
      }
      splice @range, $j, 1;
      redo if $j < @range;
    }
  }
}