my $sth = $dbh->prepare(qq{SELECT ....}) or die "...";
  $sth->execute() or die "...";
  while ( my @row = $sth->fetchrow_array() ) {
      ...
  }