return (sum [map { ($_ - $mean)**2 } @_]) / $#_;