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

##</code><code>##

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

##</code><code>##

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