Select Code to Download

use List::Util qw(max);
$e = $range[$i][1] = max($e, $range[$j][1]);

print "before\n";
for(my $i = 5; $i < 2; $i++) {
    print " # $i\n";
}
print "after\n";

before
after

print "before\n";
for(my $i = 5; $i < 10; $i++) {
...
    }
}
print "after\n";

before
 # 5
...
 # 7
 # 12
after

for (my $i = 0; $i < @range; $i++) {
REDO:
...
        }
    }
}

@range = sort { $a->[0] <=> $b->[0] } @range;
for (my $i = 0; $i < @range; $i++) {
...
        }
    }
}