#!/usr/bin/perl -w

use strict;
use warnings;
use Encode;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new({
        'binary'=>1,
        'auto_diag'=>1,
        'sep_char' => ";"
        });

open my $fd, test.csv or die ("could not open 'test.csv' file for reading \n");
while (my $row=$csv->getline ($fd))
        {
        my @source_text;
        for (my $col=0; $col<6;$col++)
                {
                push (@source_text, encode ("UTF-8",decode("cp1251",$row->[$col])));
                }
        print "@source_text\n"
        }

$csv->eol or $csv->error_diag();
close $fd;