Select Code to Download

#!/usr/bin/env perl

...
} keys %books;

print "@sorted_books";

for my $book_id (@sorted_books) {
...
    print "\n";
}