my $sth = $dbh->prepare("SELECT id, display_name FROM membership ORDER BY display_name");
$sth->execute;

my %row;
$sth->bind_columns( \( @row{ @{$sth->{NAME_lc} } } ));
while ($sth->fetch)
{
  my $memberWidget = $q->scrolling_list(
      -name => '...',
      -values => [ @row{sort keys %row}],
      -labels => \%row,
      ...
     );
  push (@memberWidgets, $memberWidget);
}