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

sub test {
	my @strings = map{ ' ' x 1000 } 1 .. 50_000;
}

cmpthese( 5, {
	Atest => \&test,
	Btest => \&test,
	Ctest => \&test,
	Dtest => \&test,
});

__END__
      s/iter Ctest Btest Dtest Atest
Ctest   9.29    --   -0%   -0%  -31%
Btest   9.29    0%    --   -0%  -31%
Dtest   9.28    0%    0%    --  -31%
Atest   6.36   46%   46%   46%    --

P:\test>373536-2
      s/iter Btest Dtest Ctest Atest
Btest   9.31    --   -0%   -0%  -19%
Dtest   9.29    0%    --    0%  -19%
Ctest   9.29    0%    0%    --  -19%
Atest   7.54   23%   23%   23%    --

      s/iter Ctest Btest Dtest Atest
Ctest   9.29    --   -0%   -0%  -31%
Btest   9.29    0%    --   -0%  -31%
Dtest   9.28    0%    0%    --  -31%
Atest   6.36   46%   46%   46%    --

P:\test>373536-2
      s/iter Btest Dtest Ctest Atest
Btest   9.31    --   -0%   -0%  -19%
Dtest   9.29    0%    --    0%  -19%
Ctest   9.29    0%    0%    --  -19%
Atest   7.54   23%   23%   23%    --