$code_point=0x3042;#HIRAGANA LETTER A
    $unicode_string=pack('U*', $code_point);
    @bytes=unpack("W*", $unicode_string);
    print join('|', @bytes), "\n";  #==>these are not bytes ,but array of codepoints


    $code_point=0x3042;#HIRAGANA LETTER A
    $unicode_string=pack('U*', $code_point);
    @bytes=map{ sprintf("%X",$_) } unpack("W*", Encode::encode('utf8',$unicode_string));
    print join('|', @bytes), "\n";

##</code><code>##

# this is wrong
@bytes=unpack("C*", $unicode_string); 

# this is right
@byets= unpack("C*", Encode::encode('utf8',$unicode_string));