#!/usr/bin/perl -lp
++$t,++$w{$_}for/\w+/g}for(map("$_ ($w{$_})",sort keys%w),$t){