my $sum = 0; $sum += $_ for @total; my $average = $sum / @total;