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