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 - || "You've left the lens cap of your mind on again, Pinky" - The Brain