my $kddatum = $Jahr.$Monat.$Monatstag;