Select Code to Download

sub usingtr_d {
    my $a = $aa;
...
    abs($a =~ y/Y// - $b =~ y/Y//) +
    abs($a =~ y/Z// - $b =~ y/Z//);
}

           Rate     tr   grep  tr_1e     sg  match robo_1   tr_d
tr        843/s     --   -18%   -56%   -75%   -80%   -92%   -99%
...
match    4291/s   409%   320%   124%    25%     --   -57%   -96%
robo_1   9984/s  1085%   877%   421%   192%   133%     --   -90%
tr_d   100985/s 11881%  9784%  5175%  2853%  2254%   911%     --

my @alpha = ('A'..'Z', qw[ A C G T ] x 20);
my $aa = join '', map $alpha[rand @alpha], 1..100;
my $bb = join '', map $alpha[rand @alpha], 1..100;