open CONFIG, "$hol_file" || die "Cannot open log for writing. $!";
 while(<CONFIG>) {
        next if /^\s*$/ || /^\#/;
        chomp;

        if(/([^:\s]+):\s+(.*)/) {
          push @{$countries{$1}}, "$2";
        }
     }


##</code><code>##

my $date = 20100101;
my @date = grep /$date/,@{$countries${cntry_of_issue}})

##</code><code>##

open CONFIG, "$hol_file" || die "Cannot open log for writing. $!";
while (<CONFIG>) {
        chomp;
        next if /^\s*$/ || /^\#/;
        my $aref = [split /,/, $_];
        push( @{$countries{$aref->[2]}}, $aref->[5]);
        }


##</code><code>##

my $date = 20100101;
my @date = grep /$date/,@{$countries${cntry_of_issue}})