who|perl -lane'$x{$F[0]}++;END{print"$k => $v"while($k,$v)=each%x}'