my @CountryList;
Build_Country_List($){
   my $country=shift;
   push @CountryList, $country unless grep { $_ eq $country} @CountryList;
}