my $mean = sum(@list) / @list;