my $bytes = pack 'U0U*', @codepoint_liste;