use strict;
use warnings;

use Benchmark qw{ cmpthese };

my @arr = ( q{abc} ) x 10000;

cmpthese( -5, {
   concat => sub { my $ret; $ret .= $_ for @arr; return $ret; },
   join   => sub { my $ret = join q{}, @arr; return $ret; },
   } );

##</code><code>##

$ ./spw1003500
         Rate concat   join
concat  994/s     --   -70%
join   3310/s   233%     --
$