use Text::CSV_XS; # Text::CSV_XS is much faster that Text::CSV

my $fileTable = shift;

my $CSV_H = Text::CSV_XS->new ({
    sep_char           => ";",
    binary             => 1,
    blank_is_undef     => 1,
    empty_is_undef     => 1,
    allow_whitespace   => 0,
    allow_loose_quotes => 1, # Should work. If not, maybe a bug in Text::CSV
    auto_diag          => 2, # Added
    });