Select Code to Download

$ perl benchmark.pl
             Rate hardburn_1 L~R_3 L~R_2 tachyon hardburn_2 delirium k
+vale  tye  L~R BrowserUk
...
tye        2.78/s        29%   19%    9%      8%         6%       4%  
+  1%   --  -0%      -88%
L~R        2.79/s        30%   19%    9%      8%         6%       5%  
+  1%   0%   --      -88%
BrowserUk  22.5/s       944%  857%  778%    770%       755%     743%  
+715% 708% 705%        --

#!/usr/bin/perl
use strict;
...
    $string .= ('a' .. 'z')[ rand 26] while length $string < $length;
    print LIST "$string\n";
}

#!/usr/bin/perl
use strict;
...
{
  return str1[0] == str2[0] ? 1 : 0;
}