OUTER: foreach my $animal ($twoDimArray[0]) {