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]);
        }