Sum in one line 

I frequently want the sum of an array of numbers, and cant believe
that perl has no "sum" function.