my $sth = $dbh->prepare("SELECT foo,bar FROM baz");
$sth->execute;
while (my @row = $sth->fetchrow_array) {
  print join "\t", @row;
  print "\n";
}

##</code><code>##

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]);