C:\Src\pl>perl TTC.pl
33:[1]
33:[3]
33:[]
print() on unopened filehandle PREVIOUSCHAPTERS at TTC.pl line 56.
$Chapter[4]