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