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

##</code><code>##

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