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