Perlで変数名を動的に生成

via

変数名に変数を使用 【OKWave】

$name = "hoge";
for($i=1 ; $i<4 ;$i++){
${"$name-$i"} = "fuga";
}

こんな風に書く