sub sum { my $sum; $sum += $_ for @_; $sum }
sub avg { @_ ? sum(@_)/@_ : undef }