my $results = $dbh->someQuery;
while (my $row = $results->fetchrow_array)
{
  $dbh->someOtherQuery;
}