perlで変数名を動的に定義する方法

Question

前提・実現したいこと

perlで変数名を動的に定義しようとしています。
例えば以下の例では、$xという変数に1を代入しようとしているのですが、
printしようとするとエラーが発生します。

変数名が動的に定義できれば、方法にこだわりはありません。
evalやリファレンスを上手に使えばできるはずなのだと思いますが、
どうしてもうまくいかなかったため、質問させていただきました。
よろしくお願いいたします。

発生している問題・エラーメッセージ

Global symbol "$x" requires explicit package name

該当のソースコード

#!/usr/bin/perl
use strict;
use warnings;
my $varnm="x";
eval "my $$varnm=1";
print "$x";

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

perl v5.18.2

Answer 1

それはシンボリックリファレンスまたはソフトリファレンスとして知られているものですね。
可能ではありますが、推奨された使い方ではありません。推奨されていないので、use strictした時には使えません。

my $varn="x";
$$varn=1;
print "$x\n";

Comments

[usr]

迅速なご対応ありがとうございました。
期待通りの回答を頂くことができました。
use strictを外すのは少し抵抗がありますね。。。

Answer 2

そういった場合、連想配列(ハッシュ)を使います。
ハッシュのキーに変数名として使いたかった文字列を指定します。文字列には、記号、空白、漢字を含む任意の文字を含むことができます。

Comments

[usr]

ご回答ありがとうございます。
ハッシュを利用する方法もあるのですね、検討してみます。