use Text::CSV::Encoded;
my $csv = Text::CSV::Encoded->new ({
    encoding     => "utf-8",      # Both in and out
    encoding_in  => "utf-16le",   # Only the input
    encoding_out => "cp1252",     # Only the output
    });

##</code><code>##

binmode STDOUT, ":utf8";
my $csv = Text::CSV_XS->new ({ binary => 1 });
open my $fh, "<:encoding(utf-16le)", $file or die "$file: $!";
while (my $row = $csv->getline ($fh)) {
    print $row->[4];
    }