history|perl -lane '$h{$F[1]}++;END{print"$h{$_} $_"for(sort{$h{$b}<=>$h{$a}}keys%h)[0..9]}'