my %Regions = (
 Europe =>[ 
   'Belgium',
   'Denmark',
   'France',
   'Germany',
   'Great Britain',
   'Hungary',
   'Portugal',
   'Russia',
   'Spain',
   'Sweden',
   'Turkey',
 ],
 Asia => [
   'Australia',
   'China',
   'India',
   'Malaysia',
   'NewZealand',
   'Philippines',
   'South Africa',
   'Taiwan',
   'Vietnam',
 ],
 North => [
   'U.S.',
   'Canada',
   'Mexico',
 ],

 South => [
   'Argentina',
   'Brazil',
   'Venezuela',
 ],
);



foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[0]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Belgium" $selected >Belgium</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[1]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Denmark" $selected >Denmark</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[2]"; my $selected="selected";}else{$selected="";}} 
print qq ~ <option value="France" $selected >France</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[3]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Germany" $selected >Germany</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[4]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Great Britain" $selected >Great Britain</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[5]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Hungaryk" $selected >Hungary</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[6]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Portugal" $selected >Portugal</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[7]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Russia" $selected >Russia</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[8]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Spain" $selected >Spain</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[9]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Sweden" $selected >Sweden</option> 
~;foreach my $region ( keys %Regions ) { if($region eq 'Europe') {$country_code="$Regions{$region}[10]"; my $selected="selected";}else{$selected="";}}
print qq ~ <option value="Turkey" $selected >Turkey</option>