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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

		if ($array[$try] lt $word) {
			$lo = ++$try; # without increment there will be
						  # a dead loop in the 4th case,
						  # see the note at the bottem
			next
		}
		elsif ($array[$try] gt $word) {
			$hi = --$try;
			next
		}
		else {
			return $try
		}