@a=(["a","b","c"],["d","e"],["f"]);
foreach $b (@a){
    foreach $c (@$b){
	print "$c\n";
    }
	print "====\n";
}
$z=$a[1][1];
print "--$z\n";