print join "\n", grep {chomp; $a eq join "", sort split "", lc} <DICT>;