vovochka@vocomp:~> cat test.pl
#!/usr/bin/perl
use strict;
use utf8;
my $alphabet = "АБВГДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯ";
for (my $i=0;$i<32;$i++)
{
print substr($alphabet,$i,1)." ";
}vovochka@vocomp:~> perl test.pl
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
Wide character in print at test.pl line 9.
А Б В Г Д Е Є Ж З И І Ї Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ь Ю Я