my $file = 'books/bookLIST.txt';
open my $info, '<', $file or die "Could not open $file: $!";
my @lines = <$info>;
close $info;

##</code><code>##

my @vlinks;
for my $line (@lines) {
	chomp($line);
	my %row;
	@row{qw/title title2 pages author/} = split /:/, $line, 4;
	push @vlinks, \%row;
}

use Data::Dump;
dd \@vlinks;

##</code><code>##

@vlinks = sort {
		   $a->{title}  cmp $b->{title}
		or $a->{pages}  <=> $b->{pages}
		or $a->{author} cmp $b->{author}
	} @vlinks;

##</code><code>##

for my $vlink (@vlinks) {
	print "<tr><td><a href=\"bookDETAIL.cgi?book=$vlink->{title2}\">"
		."$vlink->{title}</a></td><td>$vlink->{pages}</td>"
		."<td>$vlink->{author}</a></td></tr>\n"
}

##</code><code>##

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;

##</code><code>##

use HTML::Entities qw/encode_entities/;
for my $vlink (@vlinks) {
	print "<tr><td><a href=\"bookDETAIL.cgi?book="
		.encode_entities($vlink->{title2})."\">"
		.encode_entities($vlink->{title})."</a></td><td>"
		.encode_entities($vlink->{pages})."</td><td>"
		.encode_entities($vlink->{author})."</td></tr>\n"
}