Select Code to Download

use Encode qw(encode decode);
...
my @sorted = map { decode('cp1047', $_) } sort (map  { encode('cp1047'
+, $_) } @strings);