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