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