...
my $r = shift;
my $apr = Apache::Request->new($r);
my $cookies = Apache::Cookie->new($r)->parse;
my $c = $cookies->{'animals'}; 
my %zoo = ();
%zoo = $c->value if $c;
...