sub total{ my $sum = shift(@_); foreach (@_){ $sum += $_; } return $sum; }