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