for $book_id (keys %$booklist_1) {
  print $booklist_1{$book_id}, "\n";
}