use List::Util qw(sum); sub avg { (sum @{$_[0]}) / @{$_[0]} }