my $VX = 0;
    $VX += ($_ - $MX)**2 for @x;
    $VX /= $Xn;