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