$text の中には下のような配列になっています。
成田 船橋 , 八王子 町田 立川 国分寺 , 所沢 川越 秩父


これを最終的に下のような二次元配列にするために
kanto[0][0] = "成田"
kanto[0][1] = "船橋"
kanto[1][0] = "八王子"
･･･
kanto[1][3] = "秩父"


下のようなプログラム文を書いたのですが、

for $ii (0..$#text) {
　@kanto1 = split /,/,$text[$ii];# ←ここはうまくいく
　foreach $kk (@kanto1) {
　　@kanto[$kk][] = split / /,$kanto1[$kk];# ←ここでエラー
　}
}

@kanto[$kk][]のところでエラーになってしまいます。
どのようにしたら、うまく@kantoに二次元配列を作成することが出来るでしょうか