@elements = @elements [map +(unpack $format, $_) [-1], sort map pack ($format, length $elements [$_], $_), 0 .. $#elements];