my $csv = Text::CSV_XS->new( { 'allow_loose_quotes' => 1, } );