my $letter = pack("U*",@spl);