配列へのアクセス確認の目的で、
@acap = map { $_=> [] } qw(aa po);
foreach (@acap){
for($i=0;$i<7;$i++){
$$_[$i] = $i+11;
}
}
foreach $acap(@acap){
$j++;
foreach $cap($acap){
print '$j=', "$j\t$cap\n";
print join("\t",@$cap), "\n";
}
print "\n";
}
としました。
目論見では aa, po の２組だけが出力される筈でしたが
余計な（？）もう一組が出力され、この理由がわかりません。
ご教示いただければ幸です。