You're bitten by newlines.

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

Jeroen
"We are not alone"(FZ)
And yes, I tested it. Is not bothered by the sub-grief, apparently