@list = map { unpack 'j>', $_ }
                        sort
                        map { pack 'j>', $_ }
                        @list;