use Unicode::String;
Unicode::String->stringify_as('utf16');
my $format_latin_str = "# ##0 kr";
my $format_utf_str = Unicode::String::latin1( $format_latin_str );
my %format_kr = ( 'num_format' => $format_utf_str, 'num_format_enc' => 1 );