sub binary_search {
	my ($aref, $find) = @_;
	my  $mid;

	$mid = int $#$aref / 2;

	return 0 if $find == $aref->[$mid];
	return 1 if !$#$aref;

	if ($find > $aref->[$mid]) {
		binary_search([ @$aref[++$mid..$#$aref] ], $find);
	}
	else {
		binary_search([ @$aref[0..--$mid] ], $find);
	}
}