I don't know about better per se, but I would probably write it like this:

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

But that's just the way I'm bent