Not sure about the DBI query function, but this should do the trick:

my $sth = $dbh->prepare("SELECT * FROM foo");
$sth->execute();

while (my $row = $sth->fetchrow_arrayref())
{
     # Use @$row like $row->[0], $row->[1], etc.
}
$sth->finish();    # Important!
[download]

Update:
In response to your repeating question, you might want to look at the functions that can load in the entire result set, so that you can go over it as many times as you like.

my $rows = $dbh->selectall_arrayref("SELECT * FROM foo");

# Now @$rows contains all the row data.
# Use @$rows like $rows->[$row_number]->[$column_number]...
foreach my $row (@$rows)
{
     # ...or @$row like $row->[$column_number]
}

# Repeat as required, as long as $rows is still defined.

# $sth->finish();  # Update per pope (Not required, no $sth defined)
[download]