sub average1 { local$"="+";eval("@{$_[0]}")/@{$_[0]} } #### sub average2 { local$"="+";eval("@_")/@_ } #### sub average3 { eval(join"+",@_)/@_ }