% anagram_finder.pl elloh
hello
%

##</code><code>##

open DICT, "</usr/dict/words" or die "no more words: $!";
$a = join "", sort split "", lc shift;
print join "\n", grep {$a eq join "", sort split "", lc} <DICT>;