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

##</code><code>##

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

##</code><code>##

-----------------------------------
--the good, the bad and the physi--
-----------------------------------