sub avg { return eval '(' . join('+', @{$_[0]}) . ')/' . scalar(@{$_[0]}); }