use Statistics::Descriptive;
my $s = Statistics::Descriptive->new();
$s->AddData(22, 17, 29, 39, 20, 32);
print "The standard deviation is ", $s->StandardDeviation();