use Statistics::Basic::StdDev;
my $stddev = Statistics::Basic::StdDev::stddev(1,2,3);

print $stddev."\n";