@list = unpack 'j>*',
                        sort
                        pack 'j>*',
                        @list;