use Encode;

my $foo = Encode::encode( "UTF-8", "\x{306E}" );
print unpack( "H*", $foo ) . "\n";
Encode::from_to( $foo, "UTF-8", "UCS-2BE" );
print unpack( "H*", $foo ) . "\n";