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