use List::Util qw(sum);

sub mean {
    return sum(@_)/@_;
}