in reply to Dynamically creating a hash based on a variable

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

[download]
Or, if you really want to play with it, 
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);
}

[download]

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

In Section Seekers of Perl Wisdom