$h{$_}++ for @array;

##</code><code>##

@h{@array} = ( );