Select Code to Download

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

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

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