Select Code to Download

my %animals;
while( my ($state, $zoos) = each %bighash ){
...
    push @{$animals{$animal}->{$state}}, $zoo;
  }
}