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