perl -MEncode -MTk -e 'my $j = decode("utf-8", "\xe6\x97\xa5\xe6\x9c\x
+ac\xe5\x9b\xbd");
    my $w = new MainWindow::;
    $w->Label(-text => $j,
              -font => "-adobe-helvetica-regular-r-normal-*-12-*-*-*-*
+-*-*-*"
             )->pack;
    MainLoop()'
[download]

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw=tkinit;

$mw->fontCreate('big',
     -family=>'arial',
     -weight=>'bold',
     -size=> 38
    );

my $string = "\x{65E5}\x{672C}\x{8A9E}\x{306E}\x{3072}\x{3089}\x{304C}
+\x{306A}\x{6F22 }\x{5B57}\x{3068}\x{30AB}\x{30BF}\x{30AB}\x{30CA}";

my $label = $mw->Label(-bg => 'white',
                       -text => $string, 
                       -font => 'big')->pack();

MainLoop;
[download]

Here's my code:

 my $label = $mw->Label(-bg => 'white',
                       -text => $string, 
                       -font => "-adobe-helvetica-regular-r-normal-*-1
+2-*-*-*-*-*-*-*")->pack();
[download]

I've tried english as the language when using linux, and instead of adobe helvetica that i specified it is using "Nimbus sans L" as its font. I've also tried font create but it's the same....

Your code works for me here. I think you are missing the font you specified. This works, 2 labels shown, both Japanese, different fonts.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;

my $mw=tkinit;

$mw->fontCreate('big',
     -family=>'arial',
     -weight=>'bold',
     -size=> 38
    );

my $string = "\x{65E5}\x{672C}\x{8A9E}\x{306E}\x{3072}\x{3089}\x{304C}
+\x{306A}\x{6F22 }\x{5B57}\x{3068}\x{30AB}\x{30BF}\x{30AB}\x{30CA}";

my $label = $mw->Label(-bg => 'white',
                       -text => $string, 
                       -font => 'big')->pack();


my $label1 = $mw->Label(-bg => 'white',
                       -text => $string, 
                       -font => "-adobe-helvetica-regular-r-normal-*-1
+2-*-*-*-*-*-*-*")->pack();

MainLoop;
[download]

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

First, do you actually have the adobe font that you're trying to use? On my system, it doesn't exist; however, I improvised and settled on this:

#!/usr/bin/perl

BEGIN {
    $|  = 1;
    $^W = 1;
}

use strict;
use warnings;
use Tk;
use Tk::X11Font;

my $font = "-adobe-helvetica-bold-r-normal--12-120-75-75-p-70-iso8859-
+1";

my $mw = MainWindow->new;
$mw->geometry('100x150');

my $label = $mw->Label(
    -bg   => 'white',
    -text => "Help!",
    -font => \$font,
)->pack;
                       
MainLoop;
[download]