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


in reply to "Junkyard" Puzzle: Average of Numbers

sub average {
  map{$_[1]+=$_}@{$_[0]};$_[1]/@{$_[0]}
}

[download]
Works under strict and warnings. Although I am probably breaking your second rule (creating $_[1]).
$code or die


$ perldoc perldoc

In Section Meditations