@_=sort@_;$"='?';push@{$,[length]},$_ for grep{(join'',sort split//)=~m!$/@_?$!}<D>;@{pop@,}