Select Code to Download

purple:/tmp oneiros$ perl -version | head -2

This is perl, v5.8.6 built for darwin-thread-multi-2level
...
void_map  61.9/s      61%      37%       --     -38%     -38%
for       99.5/s     158%     119%      61%       --      -0%
foreach  100.0/s     160%     120%      61%       0%       --

use warnings;
use strict;

...
        print "\n$count:\n";
        cmpthese( 500_000/$count, $tests[$count] );
}