Perlで多次元配列を作るには無名配列が必要だということが今更分かったのでメモ。
@foo=(
[1,2,3],
["A","B","C"],
[
[21,22,23],
["2A","2B","2C"]
]
);
print '$foo[0][0]-> '.$foo[0][0]."\n"; #1
print '$foo[1][0]-> '.$foo[1][0]."\n"; #A
print '$foo[2][0][1]-> '.$foo[2][0][1]."\n"; #22
print '$foo[2][1][2]-> '.$foo[2][1][2]."\n"; #2C
print '$#foo-> '.$#foo."\n"; #2
print '$#{$foo[0]}-> '.$#{$foo[0]}."\n"; #2
print '$#{$foo[2][1]}->'.$#{$foo[2][1]}."\n";#3