my $sth = $dbh->query("select a, b from c where d=1");

while (my @row = $sth->fetchrow) {
  push @data, \@row;
}