my @AoA = ([1, 2, 3], [4, 5, 6], [7, 8, 9]); # an array of arrays for testing purpose
for my $row (@AoA) {
    for my $col (@$row) {
        print "$col ";
    }
    print "\n";
}