if ($hash{$date}++) {
  print qq(<TD class="table_font">$date - Hash exists</TD>\n);
}
else {
  print qq(<TD class="table_font">$date - Hash doesn't exist</TD>\n);
}