my $default = sprintf '01.%02u.%04u',(split /\./,$datum)[1..2],
        foo => 'test',
        bar => 'test2';
my %konfig = (
        default_vertragsbeg     =>  $default,
);