$sth = $dbh->prepare($query);
$sth->execute();

while(my @row = $sth->fetchrow_array)
{
   #do stuff
}

$sth->finish();