sub average { my $sum = shift @_; ...;