@list = unpack 'j*', pack 'J*',
                        sort { $a <=> $b }
                        unpack 'J*', pack 'j*',
                        @list;

##</code><code>##

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