in reply to do to read from UTF-8 files/array.

do evaluates the file as code. If it contains UTF-8 characters, it should start with 
use utf8;

[download]

Then, no decoding is needed; but you have to prepend the clause to the output file, too: 

print SVITOK "use utf8;$sod";

[download]
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Replies are listed 'Best First'.
Re^2: do to read from UTF-8 files/array.
by nikolay (Beadle) on Sep 18, 2015 at 09:54 UTC
    Thank you very much, Choroba! -- I didn't think, that the «use utf8;» could be placed write in the array body!
[reply]
      It's not the array body, it's the code that produces the array.
      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]

In Section Seekers of Perl Wisdom