<td><div align="right"><loop code=perl db=zahlen Id==1>$BKP=~ tr/./,/; out $BKP; </loop> EUR</div></td>
<td><div align="right"><loop code=perl db=zahlen Id==1>$BKP_P =sprintf"%.2f", $BKP / $Bewohner; $BKP_P=~ tr/./,/; out $BKP_P; </loop> EUR</div></td>
<td><div align="right"><loop code=perl db=zahlen Id==1>$GP=~ tr/./,/; out $GP; </loop> EUR</div></td>
<td><div align="right"><loop code=perl db=zahlen Id==1>$GP_P =sprintf"%.2f", $GP / $Bewohner; $GP_P=~ tr/./,/; out $GP_P; </loop> EUR</div></td>
<td><div align="right"><b><loop code=perl db=zahlen Id==1>
$summe_z1=$BKP_P+$GP_P;
$summe_z1=sprintf"%.2f", $summe_z1; ## auf 2 Nachkommastellen aufrunden
$summe_z1=~ tr/./,/; ## Punkt durch Komma ersetzen
out $summe_z1;</loop> EUR</b></td>