定数を定義する。 use constant { REIMU => 'れいむ', YUKARI => 'ゆかり', }; print YUKARI. 'x'. REIMU. 'はジャスティス'; # ゆかりxれいむはジャスティス Readonly 定数を使うならば、use constant よりも use Readonly のほうが便利でしたね。失礼。 "..."内や、ヒアドキュメントの中でも定数が使えるようになります。 use Readonly; Readonly my $REIMU => 'れいむ'; print "$REIMUさんは貧乏";