my $query = sprintf('SELECT recno, body FROM body WHERE recno IN (%s)', join ',', map {$_ = '?'} @recnos);
...
$sth->execute(@recnos);