use Text::CSV_XS;
open my $fh, "<", $file or die "$file: $!";
my $csv = Text::CSV_XS->new ({ auto_diag => 1, binary => 1, sep_char => "|" });
$csv->column_names (qw( lastname firstname country language ));
my $info = $csv->getline_hr_all ($fh);