Select Code to Download

$VAR1 = [
          [
...
ACCS'
          ]
        ];

  for (@rows) {
    my @new = @{$rows[$_]};
    # $new[0] should be equal to $rows[0][0]
  }

use strict;
use warnings;
...
 substr         => \&substring,
 lr             => \&lr,
});

               Rate   hash O_1_lookup array   lr binsearch if_else ter
+nary substr
hash         4706/s     --       -41%  -83% -99%      -99%    -99%    
+-99%   -99%
...
if_else    411858/s  8651%      5038% 1345%  20%        8%      --    
+-15%   -23%
ternary    486110/s 10229%      5964% 1605%  42%       28%     18%    
+  --   -10%
substr     538280/s 11338%      6615% 1788%  57%       41%     31%    
+ 11%     --

               Rate  hash O_1_lookup array if_else binsearch ternary s
+ubstr   lr
hash         2443/s    --       -47%  -81%    -96%      -96%    -96%  
+ -97% -99%
...
ternary     61575/s 2421%      1238%  378%      3%        3%      --  
+ -28% -69%
substr      85656/s 3407%      1761%  565%     44%       44%     39%  
+   -- -57%
lr         200633/s 8114%      4259% 1459%    237%      237%    226%  
+ 134%   --

               Rate  hash O_1_lookup array binsearch ternary if_else s
+ubstr   lr
hash         2768/s    --       -30%  -78%      -93%    -94%    -94%  
+ -94% -99%
...
if_else     42874/s 1449%       977%  246%        3%      0%      --  
+  -5% -83%
substr      44940/s 1524%      1029%  263%        8%      5%      5%  
+   -- -82%
lr         248898/s 8893%      6152% 1910%      498%    483%    481%  
+ 454%   --