sub total { my $sum =0; map { $sum += $_ } @_; return $sum; }