perl binary search