use List::Util qw(sum);
...
sub mean { return sum(@_)/@_ }