#!C:/perl/bin use warnings; use strict; use Text::CSV; my @printerstat; $file = 'inputdata.csv'; # should be my $file my $csv = Text::CSV->new(); open (FILE, $file) or die "Couldn't open location file: $!"; while () { $csv->parse($_); push(@printerstat, $csv->fields); print @printerstat; } close FILE;