sub sum { my $sum; $sum += $_ for @_; return $sum; }