Probably an overkill to use a module to calculate the average, but this module also contains many other useful functions for the "mathematical formula" challenged ;)

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