http://qs321.pair.com?node_id=659113


in reply to Need help with arrays and CSVs

OP's code, for ease of reading, with a note re the missing "my" and strict and warnings added:
#!C:/perl/bin use warnings; use strict; use Text::CSV; my @printerstat; $file = 'inputdata.csv'; # should be <b>my</b> $file my $csv = Text::CSV->new(); open (FILE, $file) or die "Couldn't open location file: $!"; while (<FILE>) { $csv->parse($_); push(@printerstat, $csv->fields); print @printerstat; } close FILE;
when run against a csv:

this is a field to start with,field2,field3

this produces what I would expect, namely:

this is a field to start with.field2field3

On the supposition that "I want to print each line of the array" means you want each field in the csv printed on a separate line replace
print @printerstat;
with:
for my $field(@printerstat) { print "$field\n"; }