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);

##</code><code>##

$VAR1 = [
          {
            'E' => 'E\'',
            'G' => 'g',
            'B' => 'b',
            'D' => 'd',
            'C' => 'c',
            'A' => 'a',
            'F' => 'f'
          },
          {
            'C' => 'c',
            'F' => 'f',
            'A' => 'a',
            'E' => 'e',
            'B' => 'b',
            'D' => 'D\'',
            'G' => 'g'
          },
          {
            'D' => 'd',
            'B' => 'b',
            'G' => 'g',
            'E' => 'E\'',
            'F' => 'f',
            'A' => 'a',
            'C' => 'c'
          },
          {
            'G' => 'g',
            'D' => 'd',
            'B' => 'b',
            'E' => 'E\'',
            'A' => 'a',
            'F' => 'f',
            'C' => 'c'
          },
          {
            'C' => 'c',
            'A' => 'a',
            'F' => 'f',
            'E' => 'e',
            'G' => 'g',
            'B' => 'b',
            'D' => 'D\''
          }
        ];