if (@data) { my $sum=0; $sum+=$_ foreach @data; return $sum/scalar(@data); } else { return undef; }