my $sth = $dbh->prepare($query);
$sth->execute;
while (my $row = $sth->fetchrow_hashref) {
  ...
}