use Encode qw(from_to);
...
from_to( $_, 'UTF-16LE', 'latin-1') for @sorted;
 print FOUT join("\n", @sorted);