my $ar = $sth->fetchall_arrayref;
$options = join "", map { qq~<option value="$_->[0]">$_->[1]~ } @$ar;