Select Code to Download

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

    sub average2 {
        local$"="+";eval("@_")/@_
    }

    sub average3 {
        eval(join"+",@_)/@_
    }