Select Code to Download

use List::BinarySearch::XS 'binsearch_pos';

...
foreach my $test ( @tests ) {
    my $bmatch = bsearch_lookup( $test, \@lookup_values );
    print "Bsearch Found : $test => $bmatch\n\n";

          Rate   first bsearch  simple
first   33.8/s      --    -25%    -41%
bsearch 44.9/s     33%      --    -21%
simple  57.1/s     69%     27%      --

use Benchmark 'cmpthese';
use List::BinarySearch::XS 'binsearch_pos';
...
    bsearch => sub { my @result = map{ simple_lookup ( $_, \@lookup_va
+lues ) } @tests; },
    first   => sub { my @result = map{ first_lookup  ( $_, \@lookup_va
+lues ) } @tests; },
});