s/\W//g, push @{$dict{join "", sort split //, lc}}, $_ for ;