A word is an anagram if the letters in that word can be re-arranged to form a different word.
The shortest source code by character count to find
chop,$_{join'',sort split//,lc}.="$_ "for<>;/ ./&&say for%_
Note that this requires Perl 5.10 (for the say function).
say