So I have three sets of data and I am trying to write a program that would calculate and print out for each of the data sets: number of measurements, average, variance and standard deviation (a subroutine should be used to do all). The program should also call the subroutines for each data set and print out the results.

use strict;
use warnings;
my @Dset1 = (5, 6, 7 , 8, 10);
my @Dset2= (10,11,12);
my @Dset3 = (16,48,49);

Data('Info',@Dset1);
Data('Info',@Dset2);
Data('Info',@Dset3);

my $avg = average(\@data);
print "The average is $avg \n";
sub average {
@_ == 1 or die ('Sub usage: $average = average(\@array);');
my ($array_ref) = @_;
my $sum;
my $count = scalar @$array_ref;
foreach (@$array_ref) { $sum += $_; }
return $sum / $count;
}
[download]