#!/usr/bin/perl
        while (<>) {
        @words = split(/\n+/);
                foreach $word (@words) {
                        $count{$word}++;
                }
        }
        foreach $word (sort by_count keys %count) {
                print "$word \: $count{$word}\n";
        }
        sub by_count {
                $count{$b} <=> $count{$a};
        }