$index = &List::BinarySearch::binsearch(
  sub {$a <=> $b},
  300,
  \@num_array,
);