my $data = qq(SELECT search, engine, time FROM searches WHERE DATE_SUB+(CURDATE(),INTERVAL 7 DAY) <= time);
my $ref = $dbh->selectall_arrayref($data);
# For fun you can even check the number of rows returned
print "Total Searches: ". ($#{$ref} + 1) ."
\n";
for my $row (0 .. $#{$ref}) {
print "$ref->[$row][0] $ref->[$row][1] on $ref->[$row][2]
\n";
}