sub make_select {
   my ($dbh, $sql, $args, $id) = @_;
   my $items = $dbh->selectall_arrayref($sql, {Slice => {}}, $args);

   for ($items) {
      $_->{selected} = 1 if $_->{id} == $id;
   }

   return $items;
}