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