my @elements = map { ( split /\0/, $_ )[1] }
               sort { $a cmp $b }
               map { join "\0", padded($_), $_ }
               @original;