my %__privateIndexHash; #key = country read, value is allways 1
my @CountryList;
sub Build_Country_List($){
   #I do not really care about the boolean, Ill figure this out for myself.
   my $country=shift;
   if(!exists $__privateIndexHash{$country}){
   #Havent seen country before, insert into array and hash index
       $__privateIndexHash{country}=1;
       push @CountryList, $country;
   }
}