sub anagram {
grep"@{[sort$_[0]=~/./g]}"eq"@{[sort/./g]}",@{+pop}
}