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