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