Select Code to Download

timethese 200000, {
   Big => sub { big_look($big_ref) }, # $cells->{ ($p->[1] << 32) | ($
+p->[0] & 0xFFFFFFFF) }
...
   Str => sub { str_look($str_ref) }, # $cells->{ $p->[0] .':'. $p->[1
+] }
};

use strict;
# use warnings;
...
   Str => sub { str_look($str_ref) }, # $cells->{ $p->[0] .':'. $p->[1
+] }
};

config_args='-Dprefix=/opt/perl-5.26.0 -sder -Dusethreads -Accflags=-m
+sse4.2'

$ /usr/bin/perl test.pl
Benchmark: timing 200000 iterations of Big, Kgb, Lan, Mat, Pak, St2, S
+t3, Str...
...
 St3: 1 wallclock secs ( 1.55 usr + 0.0 sys = 1.55 CPU) @ 129032.26/s 
+(n=200000)
 Str: 4 wallclock secs ( 3.48 usr + 0.0 sys = 3.48 CPU) @  57471.26/s 
+(n=200000)