my @A = ([0,1],[0,1,2,3,0],[1,2,3,4,1,1,1,11]);

my $zeroes = scalar grep { $_ == 0 } @{$A[1]};
my $ones =   scalar grep { $_ == 1 } @{$A[2]};

print "Scalar    : ", scalar @A, "\n";
print "Last index: $#A\n";
print "Zeroes in second field: $zeroes\n";
print "Ones   in third  field: $ones\n";