use List::Util qw(sum);
sub avg { (sum @{$_[0]}) / @{$_[0]} }
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

PerlMonks lovingly hand-crafted by Tim Vroom.
PerlMonks somehow became entangled with The Perl Foundation.
Marvelous Managed Hosting and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.