find all anagrams - from programming perls