sub reversi { my (@array) = @_; print reverse sort(@array); }