多次元配列をperl5で使用しようと考えています。

@test[a][b]という多次元配列に値を追加代入したいのですが
どのように行えばよいか悩んでおります。

以下のソースは動きませんが、このような動作をするにはどうしたら
良いでしょうか？
while(10 > $count){
push(@DATA_A1[$count][A1], $count);
$count++;
}