Select Code to Download

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

...
print "Last index: $#A\n";
print "Zeroes in second field: $zeroes\n";
print "Ones   in third  field: $ones\n";