#!/usr/bin/perl


# take a list of words
# spit out count\tword deduped

my %words;
while (my $w = <>) {
    chomp $w;
    $words{$w}++;
}
foreach my $w (sort keys %words) {
    print "$words{$w}\t$w\n";
}