our(@xmi, @xma); for my $p (0 .. @xlo - 1) { my $xmi = $xlo[$p]; for my $x ($xlo[$p] .. ($xhi[$p + $t0] || @s) - 1) { $s[$x] < $s[$xmi] and $xmi = $x; } push @xmi, $xmi; } for my $p (0 .. @xhi - 1) { my $xma = $xhi[$p]; for my $x ($xhi[$p] .. ($xlo[$p + 1 - $t0] || @s) - 1) { $s[$xma] < $s[$x] and $xma = $x; } push @xma, $xma; }