++$count{$_} for @list;

##</code><code>##

$count{$_} = $count{$_}//0 + 1 for @list;