@mon=("あ","い","う","え","お","か","き","く","け","こ");
@mom=(100,200,300,400,500,600,700,800,900,1000);
for($i=1 ; $i<=10 ; $i++){
print "$i $mon[0] $mom[0]\n";
}

でやってみたのですが、
1　あ 100
2　あ 100
3　あ 100
4　あ 100
5　あ 100
6　あ 100
7　あ 100
8　あ 100
9　あ 100
10　あ 100
となってしまいます。
右側二列も数字をずらすためには、どうすればよいのでしょうか？