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

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