Indeed all very good points!

Thanks for pointing me to List::BinarySearch.

 bsearch_num_pos($lookup, @array) gives me a grip to handle further calculations.