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