push @elt, qq|\t$bh[$i] = {$bh[$i+1]}|;
}
$tex .= join(",\n", $id, @elt);
$tex .= "\n";
if ($additional_fields) {
$tex .= ",\n";
foreach my $bibtex_tag ( keys %$additional_fields ) {
next if $bibtex_tag eq '@';
else {
$tex .= "}\n";
-