my %counts = (); map {$counts{$_}++} @list;