#!/perl/bin/perl

print "Content-Type: text/html\015\012\015\012"; 

@cities = ("Seattle", "Odense", "Venice", "Lewes", "Olso");

# Here its no problem
print "<select>\n";
print "<option>City Name</option>\n";
foreach $city (sort @cities){
print '<option value="'.$city.'">'.$city.'</option>'."\n";
}
print "</select>\n";


# But here is my nightmare
$test="<select><option>City Name</option>";
foreach $city (sort @cities){

print "<option value=".$city.">".$city."</option>";

}
print "</select>\n";


print $test;