sub addprint {my $sum = 0; $sum += $_ for @_; print $sum, "\n"}