Hi, well you should try to make the date the key, and put your events into a array of your hash key:

my %date;
$date{1.1.2001}="Happy new year";
push @{$date{1.1.2001}, "Don't drink and drive";
[download]

you can now access the events by:

for $event (@{$date{1.1.2001}) {
  print "$event on 1.1.2001\n"
}
[download]

This is maybe easier than do it the other way around.
Every value of this %year-hash is an array itself.

-----------------------------------
--the good, the bad and the physi--
-----------------------------------
[download]