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