use Text::CSV; 
 
my @printerstat; 
$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;