#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];

our $ITERS ||= 5;
our $REPS  ||= 10000;

sub test { 
    my @strings = map{ ' ' x 1000 } 1 .. $REPS; 
}

my %tests = ( Atest => \&test, Btest => \&test, Ctest => \&test, Dtest => \&test, );

## Ignore the results produced by this run
cmpthese( 1,      \%tests);

## These should show more even distribution. 
cmpthese( $ITERS, \%tests); 

P:\test>373536-2 -ITERS=10
        Rate Dtest Btest Ctest Atest
Dtest 4.27/s    --   -0%   -7%  -67%
Btest 4.27/s    0%    --   -7%  -67%
Ctest 4.59/s    7%    7%    --  -64%
Atest 12.8/s  200%  200%  179%    --
        Rate Ctest Dtest Atest Btest
Ctest 4.10/s    --   -1%   -1%   -1%
Dtest 4.13/s    1%    --   -0%   -0%
Atest 4.13/s    1%    0%    --   -0%
Btest 4.13/s    1%    0%    0%    --