my 3rd submission for perl5/anagram