my $template = '
<select name="foo">
[%- FOREACH row = sth.fetchrow_hashref %]
<option value="[% row.id %]">[% row.text %]</option>
[%- END %]
</select>
';

Template->process(\$template, {sth => $sth});