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

##</code><code>##

@animals{@animals} = (1) x @animals;