another solution:
sub total { my $sum =0; map { $sum += $_ } @_; return $sum; } [download]
In reply to Re: Rook question by blue_cowdawg in thread Rook question by squimby