##
$aref = [
[
1,
2,
3
],
[
4,
5,
6
],
[
7,
8,
9
]
];
####
for my $deref (@$aref){
for my $element (@$deref){
print "$element\n";
}
}