perl - uc before sort in map -

map{ chomp; $isword{uc join "", sort /./g} .= "$_+" } <fh>; 

generally, uses items in file, first sort, uc, add hashmap.

but want first uc, sort.

does 1 know how it?

in keeping spirit of terseness have achieved:

map{ chomp; $isword{join "", uc =~ sort /./g} .= "$_+" } <fh>;