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

##</code><code>##

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

##</code><code>##

before
after

##</code><code>##

print "before\n";
for(my $i = 5; $i < 10; $i++) {
    print " # $i\n";
    if($i==7) {
        $i = 12;
        redo;
    }
}
print "after\n";

##</code><code>##

before
 # 5
 # 6
 # 7
 # 12
after

##</code><code>##

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

##</code><code>##

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