note repson Here's the first thing that springs to mind if I read the problem correctly (30 characters): <code>sub avg { (map{(1)x$_}@{$_[0]})/@{$_[0]} } </code> 79981 79981