if (lc($word) eq join "", sort split //, lc($word));