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