Select Code to Download

use strict;
use warnings;
...
    }
}

use Data::Dump qw(pp);

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

$ /opt/perl-5.24.2/bin/perl test.pl
Benchmark: timing 200000 iterations of Big, Kgb, Lan, Mat, Pak, St2, S
+t3, Str...
...
 St3: 2 wallclock secs ( 2.03 usr + 0.00 sys = 2.03 CPU) @ 98522.17/s 
+(n=200000)
 Str: 4 wallclock secs ( 4.51 usr + 0.00 sys = 4.51 CPU) @ 44345.90/s 
+(n=200000)

Benchmark: timing 200000 iterations of Big, Kgb, Lan, Mat, Pak, St2, S
+t3, Str...
 Big: 6 wallclock secs ( 5.69 usr + 0.00 sys = 5.69 CPU) @ 35149.38/s 
+(n=200000)
...
 St3: 2 wallclock secs ( 2.13 usr + 0.00 sys = 2.13 CPU) @ 93896.71/s 
+(n=200000)
 Str: 5 wallclock secs ( 4.58 usr + 0.00 sys = 4.58 CPU) @ 43668.12/s 
+(n=200000)

sub kgb_look {
   my $cells = shift;
...
Initialization of state variables in list context currently forbidden 
+at test.pl line 341, near "@points;"
Execution of test.pl aborted due to compilation errors.

use feature qw(state);

...
   exists $cells->{'notfound3'} and die;
}