Select Code to Download

while ($book_id = $sth->fetchrow_array()) {
     $booklist_1{$book_id} = {};
}

Can't use string ("1") as a HASH ref while "strict refs" in use