use Text::CSV_XS;
my $csv = Text::CSV_XS->new();
open my $FH, "<", "test.csv";
while (<$FH>) {
$csv->parse($_);
my @fields = $csv->fields;