for(my $i = 0; $i<=$#AoA;$i++){
        my $count = @{$AoA[$i]};  
        print "Row #: ", $i+1, " has $count columns\n";
        }