use strict;
use warnings;
use Text::CSV;
use Data::Dumper;

my $csvFile = <<CSV;
A,B,C,D,E,F,G
a,b,c,d,E',f,g
a,b,c,D',e,f,g
a,b,c,d,E',f,g
a,b,c,d,E',f,g
a,b,c,D',e,f,g
CSV

open my $fIn, '<', \$csvFile;

my $csv = Text::CSV->new();

$csv->column_names($csv->getline($fIn));

my $arrayref = $csv->getline_hr_all($fIn);

print Dumper($arrayref);