foreach $book_id (keys %booklist_1) {
    my $r = $booklist_l{$book_id};
    print "XXX $book_id > $r->{'update_id'} -- from $r\n";
}