List::Util

use List::Util qw/sum/;
my $total = sum( @array );
[download]

Sorry, but that's the closest you'll get.

Cheers,
Ovid

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.