Here is an excerpt from the binary search documentation:

use Search::Binary;
$pos = binary_search($min, $max, $val, $read, $handle, [$size]);
[download]

"binary_search" implements a generic binary search algo­rithm returning the position of the first record whose index value is greater than or equal to $val.