失礼します。激初心者なんですが、どなたかアドバイスを
頂ければ幸いです。

Perlでフォームから受け取った情報をファイルに保存する
CGIを作っているんですが、今の時点で変数で
$in{●th_☆}（●には8〜20、☆には1〜10の数字が入る）
というものが大量にあります。（全部で120個)

これを配列変数に
@dia8th = ($in{'8th_1'},$in{'8th_2'},$in{'8th_3'},$in{'8th_4'}…
とやっていくのは非常にみぐるしいと感じて、
forを使って簡単に取り込む方法を模索しています。

で、下記のようなfor文を作ってみたのですが、
どうも上手く格納してくれません。

for ($boxnum=0;$boxnum==9;$boxnum++)
{
$dia8th[$boxnum] = $in{'8th_$boxnum+1'}
}

変数に数字を入れる時点で、他の変数にある数字を活用して
変数名を作るにはどのような方法がよろしいのでしょうか。

※もっとも、この方法だと、$dia8thの部分が20まであるので
その分for文を用意しないといけないため、そこもなんとか
したいところではあるのですが・・・