http://search.cpan.org/~shlomif/Statistics-Descriptive-3.0612/lib/Statistics/Descriptive.pm use Statistics::Descriptive;my @a=(100,88,77,18,79,96,57,88,65,78,66,99); my $stat = Statistics::Descriptive::Full->new();$stat->add_data(@a); my $mean = $st…