open(INFILE, $filename) or die "Can't open $filename: $!";
my @lines = <INFILE>;
my @chapters;
$chapters[1] = @lines[0 .. 55];
$chapters[2] = @lines[56 .. 112];