Select Code to Download

use strict;
use warnings;
...
#push the final book
push @answers, $book;
print Dumper(\@answers);