...

sub st2_look {
   my $cells = shift;
   for my $p (@points) {
      exists $cells->{ join(':',@$p) } or die;
   }
   exists $cells->{'notfound'} and die;
   exists $cells->{'notfound2'} and die;
   exists $cells->{'notfound3'} and die;
}

my $str_ref = str_hash();
my $st2_ref = str_hash();
my $big_ref = big_hash();
my $pak_ref = pak_hash();
my $mat_ref = mat_hash();

timethese 200000, {
   Str => sub { str_look($str_ref) },
   St2 => sub { st2_look($st2_ref) },
   Big => sub { big_look($big_ref) },
   Pak => sub { pak_look($pak_ref) },
   Mat => sub { mat_look($mat_ref) },
};