http://www.perlmonks.org?node_id=659111


in reply to Need help with arrays and CSVs

From the docs for Text::CSV_XS which also apply to Text::CSV:
my $csv = Text::CSV->new ({ binary => 1, eol => $/ }); open my $io, "<", $file or die "$file: $!"; while (my $row = $csv->getline ($io)) { my @fields = @$row; }
P.S. Please use <code>...</code> tags so your code is more legible.