I'm afraid you'll need to be a bit more specific -- perhaps provide some code? fetchrow_array by itself just returns a perfectly normal array. Thus:

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

By "scrolling list," do you mean some sort of CGI form? A Tk widget? Give us a little more to go on..

Update: Applying judicious use of the PSI::ESP module, I'm assuming:

• You want an HTML scrolling list
• You're using CGI.pm (which should be a given if the first is true)
• Your query only returns one column, and you want that whole column in the scrolling list

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

Further reading:

• DBI documentation
• DBI FAQ
• CGI documentation (scrolling lists)

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

use DBI;
my $table_name = "perl";
my $db_name = "system";
my $user_id = "doc";
my $password ="your password here";
my $interface = "DBI";
my $row = ( "$db_name ('$table_name$user_id $interface')");
eval $row;
[download]

"Excellent. Release the hounds." -- Monty Burns.

my $sth = $dbh->prepare(select * from table) or die "$DBI::errstr\n";
$sth->execute() or die "$DBI::errstr\n";
while (my @array = $sth->fetchrow_array)
 {
 #do stuff with @array;
 }
[download]

my $sth = $dbh->prepare("SELECT stuff FROM table");
$sth->execute;
my @data = $sth->fetchrow_array;
[download]

print "<select name = 'test'>";
foreach my $entry ( @data ) {
  print "<option value = '$entry'>$entry</option>";
}
print "</select>";
[download]

If you have done this a million times, I am afraid that you could end up with a million errors.
Your statement my @data = $sth->fetchrow_array; will only fetch the first row from the result set. After which, if you don't call $sth->finish(), you'll end up with some memory being allocated and unreleased.
Check the above answer by Chmrr for a correct use of fetchrow_array with while.

BTW, your comment that the enquiring monk should B... OFF is not going to do much good for his problem.


 _  _ _  _  
(_|| | |(_|><
 _|

For every complex problem, there is a solution that is simple, neat, and wrong
H. L. Mencken