I frequently want the sum of an array of numbers, and cant believe that perl has no "sum" function.
my $total = scalar map { (1) x $_ } @numbers;