use Math::NumberCruncher;
my @array = (3, 5, 7, 12,24);
print "Average: ", Math::NumberCruncher::Mean(\@array);