use List::Util qw(sum);
my $average = sum(@array) / @array;