Added Perl iterative binary search