#!/usr/bin/perl
use warnings;
use strict;

use List::Util qw{ sum };
use Benchmark qw{ cmpthese };
use Test::More tests => 1;

my @arr = ('abc', 'cd', 'e', 'fg', 'hi', 'hello world');

sub xsum  { sum(map length, @arr) }
sub xjoin { length join "", @arr }

warn xsum();

is xsum(), xjoin(), 'same';

cmpthese(-3, {
    sum  => \&xsum,
    join => \&xjoin,
});