PLEASE rewrite to using hash-attributes connect instead of DSN!

new scroll down to quote_space

quote_space

 my $csv = Text::CSV_XS->new ({ quote_space => 1 });
         $csv->quote_space (0);
 my $f = $csv->quote_space;
[download]

By default, a space in a field would trigger quotation. As no rule exists this to be forced in CSV, nor any for the opposite, the default is true for safety. You can exclude the space from this trigger by setting this attribute to 0.

Your connect will need to add

my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
    # ......

    csv_quote_space => 0,
    });
[download]