$date = $4.$3.$2;
if (eval("\%$date")) {
    print "<TD class=table_font>$date - Hash exists</TD>\n";
    # play with hash
} else {
    print "<TD class=table_font>$date - Hash doesn't exist</TD>\n";
    # create the hash
    eval("\%$date = ()");
    # play with hash
}