Select Code to Download

use strict;
my $hash={};
...
 print $country_ref->{animals}->{fox}."\n" 
    if exists $country_ref->{animals}->{fox};
};

$hash->{countries}->{USA}->{animals}->{fox}=1560;