our %counts;
"$string," =~ /([^,]*),(?{ $counts{$1}++ })/g;