pure Perl anagram finder