use Text::CSV_XS;

...
my $csv_reader = Text::CSV_XS->new();
...