sub average1 {
        local$"="+";eval("@{$_[0]}")/@{$_[0]}
    }