sub assignmax5 { @a = sort@_; pop @a; } #### sub assignmax5 { return (sort @_)[-1]; }