Select Code to Download

sub dbl_look {
    my $cells = shift;
...
    exists $cells->{'notfound2'} and die;
    exists $cells->{'notfound3'} and die;
}

timethese 200000, {
   StjA => sub { stj_look($stj_ref, $npoints },
...
   StjC => sub { stj_look($stj_ref, 3*$npoints },
   ...
};

$ perl pm_1196786.pl
131, keys 131
...
      StrA:  6 wallclock secs ( 6.36 usr +  0.00 sys =  6.36 CPU) @ 31
+446.54/s (n=200000)
      StrB: 13 wallclock secs (12.67 usr +  0.00 sys = 12.67 CPU) @ 15
+782.83/s (n=200000)
      StrC: 19 wallclock secs (18.69 usr +  0.00 sys = 18.69 CPU) @ 10
+702.63/s (n=200000)

$ cat pm_1196786.pl
use strict;
...
   PakC => sub { pak_look($pak_ref, 3*$npoints) },
   DblC => sub { dbl_look($dbl_ref, 3*$npoints) },
};