my $diags = lookup( qq{
select Id,x0136,x0142,x0144,x0147,x0151,x0152,x0153,x0158,x0160,x0161 from "DiagnoseDaten"
+where x0147 = 1
});
-warn "# diags = ",dump($diags);
+#warn "# diags = ",dump($diags);
my $sth = $dbh->prepare( qq{
select * from "ComuInfos"