Help for this page
#!/usr/bin/env perl ... } keys %books; print "@sorted_books";
for my $book_id (@sorted_books) { ... print "\n"; }