use Statistics::Basic::StdDev;
my $stddev = stddev(1,2,3);
print $stddev."\n";