my $sth = $dbh->prepare( "SELECT id, display_name FROM membership " );
   my $rawMembers = $dbh->selectall_arrayref( $sth, { Slice => {} } );
   my %memberOpts = map { $_->{id} => $_->{display_name} } @$rawMembers;
   my %memberLookup = reverse %memberOpts;

   my $memberWidget = $q->scrolling_list( 
                            -name => 'memberships',
                            -values => [ @memberLookup{ sort keys %memberLookup } ],
                            -labels => \%memberOpts,
                            -default => [],
                            -multiple => 1,
                            -size => 5,
                           );