my $sth = $dbh->prepare("SELECT foo,bar FROM baz");
$sth->execute;
my @data;
while (my @row = $sth->fetchrow_array) {
  push @data, $row[0];
}
print $query->scrolling_list(-name   => 'list_name',
                             -values => [@data]);