foreach (@animals) { $animals{$_}++; }  # initialize %animals hash