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