# Buss- und Bettag
    if (grep { lc($country) eq lc($_) } qw(Sachsen)) {

#      $holidays{'20.11'} = "Buss- und Bettag";
        # changed to
        my $weekdayXmas = &Date::Manip::Date_DayOfWeek(12, 24, $year) % 7;
        $holidays{(22-$weekdayXmas) . ".11"} = "Buss- und Bettag";
    } # if