use strict;
use warnings;
use Text::CSV;
my @printerstat = ();
my $file = 'inputdata.csv';
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;