#!/afs/athena/contrib/perl/perl

while(<>){
    s/[^\w ]//g;
    y/A-Z/a-z/;
    split;
    for $x (@_){
	$freq{$x}++;
    }
}

@list = sort byfreq keys %freq;
for $w (1..100) {
    print("$list[$w]\n");
}

sub byfreq { $freq{$b} <=> $freq{$a}; }
