Select Code to Download

sub hash_style2 {
    my %values;
...
    my @b = /\bb_(\d+)\b/g;
    print "@a <==> @b\n" if $testing;
}

               Rate Trinary New_Grep Original ikegami Hash2 Tri_Substr
+ Switch Tri_Substr2
Trinary     10273/s      --      -5%     -22%    -34%  -40%       -41%
+   -41%        -50%
...
Tri_Substr  17437/s     70%      62%      33%     11%    2%         --
+    -0%        -16%
Switch      17453/s     70%      62%      33%     11%    3%         0%
+     --        -15%
Tri_Substr2 20651/s    101%      92%      58%     32%   21%        18%
+    18%          --