...

    # Set a Unicode font.
    my $uni_font  = $workbook->add_format(font => 'Arial Unicode MS');

    $worksheet->write('A1', $utf8_str, $uni_font);

    ...