http://www.perlmonks.org?node_id=79981

In light of Junkward Wars, Perl Style, I offer the following puzzle which limits what you have to work with.

In this case, your task is to write a subroutine that takes in a reference to a list of numbers and returns the average of those numbers, with the limitations that:


Dr. Michael K. Neylon - mneylon-pm@masemware.com || "You've left the lens cap of your mind on again, Pinky" - The Brain