perl -lane '$c{$F[0]}++;END{print"$_=$c{$_}"for keys%c}'