my $variance;
my $var;
foreach my $data[$index] (@data) {
            $var = 1/($count-1);
            $variance = $var*(($data[$index]-$Average)**2);
}
print "$variance\n";