Perhaps a trip to CPAN would have helped... I might use somthing like this:

#!/usr/bin/perl -wT
use strict;
use Statistics::Lite qw(stddev);

my @data = 20..30;
my $standard_deviation = stddev(@data);
[download]

-Blake