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


in reply to "Junkyard" Puzzle: Average of Numbers

Flibbertigibbit! All the fun ones have been done... 
use List::Util qw(sum);
sub avg { (sum @{$_[0]}) / @{$_[0]} }

[download]
oops: didn't notice the last rule. never mind, run along now... 
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Meditations