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


in reply to "Junkyard" Puzzle: Average of Numbers

eval(join "+", @{$_[0]}) / @{$_[0]}

Update: Oh, are we golfing? That's 31 characters without the spaces.