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; }, });