use Benchmark;

sub add_i43s { @_ > 1 ? add_i43s( shift() + shift(), @_ ) : shift() }
sub add_davorg { eval join '+', @_ };
sub add_mdillon { my $sum; $sum += $_ for @_; $sum }

timethese(100000, {
        'i43s' => sub { add_i43s(1,2,3,4,5,6,7,8,9,10); },
        'davorg' => sub { add_davorg(1,2,3,4,5,6,7,8,9,10); },
        'mdillon' => sub { add_mdillon(1,2,3,4,5,6,7,8,9,10); } });