$sth = $dbh->prepare($query);
$sth->execute($query);
while (my $row = $sth->fetchrow_hashref()) {
   #use $row->{date} etc here.
}