print Dumper \%bighash ;

foreach  my $states ( sort keys %bighash  )
{
    print "$states\n";

    foreach  my $zoo ( keys %{$bighash{$states}}  )
    {
        my $cur = $bighash{$states}{$zoo}->[1];
        my $count = 0;

        foreach  my $nzoo ( keys %{$bighash{$states}}  )
        {
          my $nxt = $bighash{$states}{$nzoo}->[1];

          if ( $cur eq $nxt )
          {
            $count++;

            if ( $count > 1  )
            {
                print "ZOO: $zoo ANIMAL: $nxt\n";
            }
          }
            
        }               # -----  end foreach  -----
      
    }               # -----  end foreach  -----
}               # -----  end foreach  -----