in reply to Best way to sum an array?

That recursive sub is ugly. Could be cleaner: 
sub SumArryRcs { @_ ? shift(@_) + __SUB__->(@_) : 0 }

[download]

In Section Seekers of Perl Wisdom