my $average = 0;
       $average = ($_ * $average + $total[$_]) / ($_ + 1) for 0 .. @total -1;