#!/usr/bin/perl 
use strict;
use warnings;

use Text::CSV_PP;
use Text::CSV_XS;
use Text::CSV;

my @array;

my $csv = Text::CSV->new ({ binary => 1, 
				sep_char=>','}) or
     die "Cannot use CSV: ".Text::CSV->error_diag ();

 open my $FH2, "<:encoding(utf8)", "test.file" or die "$file: $!";

 while (my $row = $csv->getline ($FH2) ) {
       {push @array, $row;}
     }
 $csv->eof or $csv->error_diag ();
 close $FH2;