Select Code to Download

    my @array = @$arrayref;
    my $word = $$wordref;

    while ($lo <= :w
        $hi) {

            $lo = ++$try; # without increment there will be
...
            $hi = --$try;

        if ($array[$try] lt $word) {
            $lo = ++$try; # without increment there will be
...
        else {
            return $try
        }