push @body,"<tr><td rowspan=\"${\scalar @$books}\">$Author2</td>\n";
# add \ \ >                 ^                   ^ ^
# remove ,                             ^