$cur = $r->[1] unless $cur > $r->[1];