#!/afs/athena/contrib/perl/perl
#
# anag - find anagrams in /usr/dict/words
#
# 1/93 Matt Ranney  mjr@calvin.edu
#

open (WORDS, "/usr/dict/words") || die "can't open /usr/dict/words: $!\n";

warn "Churning for anagrams...\n";
while (<WORDS>) {               
    next unless /^[a-z]+$/;   
    chop;                       
    $word=$_;                   
    $sword=join('', sort(split(//, $word)));
    if ($wlist{$sword}) {
        $wlist{$sword} .= " $word";
    }
    else {
        $wlist{$sword}=$word;
    }
}

foreach $word (keys %wlist) {
    print "$wlist{$word}\n" if $wlist{$word} =~ / /;
}