I think what you're trying to do is this:

$test="<select><option>City Name</option>";
foreach $city (sort @cities){

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

}
$test .= "</select>\n";

print $test;
[download]