grep{(join'',sort split//,$_[0])eq join'',sort/./g}@{pop}