use strict;
use warnings;
use Benchmark qw{ cmpthese };

sub foo () { 'abc' };
sub bar () { 'def' };

cmpthese( -3, {
	concat => sub { my $ret = foo . bar; return $ret; },
	join   => sub { my $ret = join q{}, foo, bar; return $ret; },
});