#!/usr/bin/perl
use strict;
use warnings;
 
use Text::CSV;
use Data::Dumper;

my $csv = Text::CSV->new({ sep_char => ',' });
 
my $file = "book.csv";

open(my $csvdata, '<', $file) 
	or die "Could not open '$file' $!\n";

while (my $line = <$csvdata>) {
	chomp $line;

	if ($csv->parse($line)) {	 
		my @fields = $csv->fields();
		print Dumper \@fields;
	}
}