Select Code to Download

#!/usr/bin/perl

...
    reverse       => $reverse,
    reverse_noref => $reverse_noref
});

$ perl 1099601.pl
                 Rate       reverse reverse_noref       regular      k
+eysonly
...
regular       31693/s         1326%          830%            --       
+    -0%
keysonly      31726/s         1328%          831%            0%       
+     --
$