my @AoA = ( [1,3,5,7] );       
print scalar @{$AoA[0]};        # 4

##</code><code>##

 
print $#{$AoA[0]};              # 3