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