Select Code to Download

my %format_kr = ( num_format => "# ##0 kr" );
...
my $format_kr = $excel->add_format(%format_kr);
...
$sheet->write($i,2,$data[$i],$format_kr);

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 );