<[Alan]> This is definitely one of my favorite programming interview questions to ask. If they get it right, you can move on to golf...did I ever show you these? Whole-word anagram finder: $ perl -e 'sub f{join"",sort split//,pop};$w=f($/.pop);die grep f($_)eq$w,<>' /usr/share/dict/words bread Partial-word anagram finder: $ perl -e 'sub f{join pop,sort split//,pop};$w=f($/.pop,"");die grep $w=~(f($_,"+")."+"),<>' /usr/share/dict/words bread