...
    my $arial_unicode = $workbook -> add_format(font => 'Arial Unicode MS');
    $sheet -> write ( 0, 0, $writestring, $arial_unicode );
    ...