Select Code to Download

date,count,type,state,client,quality,program,duration
d1,c1,t1,s1,k1,q1,p1,d1
d2,c2,t2,s2,k2,q2,p2,d2
...

# get dates w/dups, and the dup count
SELECT `date`, count(*) as num_dups FROM foo GROUP BY `date` HAVING co
+unt(*) > 1
...
  push @{ $dates{ $row->{date} } }, $row;
}
print Dumper \%dates;