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