http://www.perlmonks.org?node_id=17413


in reply to How can I add all the numbers in an array with out doing a foreach loop?

Here's a recursive solution:
sub sum { @_ ? (shift) + &sum : 0 }
To be called like:
print sum(5, 6, 3);

Originally posted as a Categorized Answer.