use Text::CSV;

my $file = 'books/bookLIST.txt';
open my $info, '<', $file or die "Could not open $file: $!";
my $csv = Text::CSV->new({binary=>1, auto_diag=>2,
	sep_char=>":", allow_whitespace=>1 });
$csv->column_names(qw/title title2 pages author/);
my @vlinks;
while ( my $row = $csv->getline_hr($info) ) {
	push @vlinks, $row;
}
$csv->eof or $csv->error_diag;
close $info;