Select Code to Download

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

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

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

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