while (my $something = $sth->fetchrow_hashref()) {
     $option_list .= qq~<option value="~ . $something->{id} . qq~">~ . $something->{cat_name} . qq~</option>\n~;
}