sub avg {
  (map{(1)x$_}@{$_[0]})/@{$_[0]}
}