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