If you lift the requirement that you have to compare one word to many, you can get the following (which returns whether its two arguments are anagramic)

sub anagram
{
@_=map{join"",sort/./g}@_;pop eq pop
}
[download]

36 characters.