Select Code to Download

#!/usr/bin/perl
use strict;
...

$Data::Dumper::Sortkeys = 1;
print Dumper \%animals ;

$VAR1 = {
          'HIPPO1' => {
...
                                     ]
                      }
        };

foreach my $href (values %tmp) {
   $animals{$_} = $href->{data} foreach keys %{$href->{variations}}
}