Using much the same technique as described here:

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);
}
[download]

I'm not sure about the -values and -labels option of scrolling_list (as I've never used CGI built-ins) but this should get you started (and the keys aren't sorted but the order you get it from the database is the same).