BEGIN { FS="," }
       { N[$NF]++ }
 END   { for(I in N) 
 			print I " " N[I] 
       }