Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
    sum  => \&xsum,
    join => \&xjoin,
});

1..1
21 at ./2.pl line 14.
...
          Rate  sum join
sum  1470509/s   -- -77%
join 6267577/s 326%   --