Help for this page
OUTER: foreach my $animal ($twoDimArray[0]) {
OUTER: foreach my $animal (@{$twoDimArray[0]}) {