print qq~
<select>
<option>$populate
<option>1
<option>2
<option>3
</select>
~;

##</code><code>##

<select>
<option>2
<option>1
<option>2
<option>3
</select>