sub find_avg { 
  (eval join"+",@{$_[0]})/(($#{$_[0]})+1); 
}