perl -le'$x{(split)[0]}++for(`who`);print"$k => $v"while($k,$v)=each%x'

##</code><code>##

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