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
h={};(h[$_.upcase.bytes.sort]||=[])<<$_ while gets&&chomp;h.each{|k,v|puts v.join' 'if v.at 1}