Help for this page
sub average { if (@_) { ... return undef; } }
sub sum { my $sum; $sum += $_ for @_; $sum } sub avg { @_ ? sum(@_)/@_ : undef }