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