Not a CODE reference at ... line 53, <DATA> line 1. 
if ($q->('lang') eq '' || $q->('lang') eq $bookinfo[1]) {