Select Code to Download

#!/usr/bin/perl
  use strict;
...
    'none'
  );
  Benchmark::cmpthese($results);

             Rate      map printfor forprint  abigail     join    plai
+n
map       48544/s       --      -2%      -5%     -52%     -71%     -72
+%
...
abigail  102041/s     110%     106%     100%       --     -39%     -41
+%
join     166667/s     243%     237%     227%      63%       --      -3
+%
plain    172414/s     255%     248%     238%      69%       3%       -
+-