in reply to History Meme, in Perl!

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

In Section Cool Uses for Perl