unless(exists($liste{$titel}))
  {
    # als Wert wird ein anonymer Hash eingefügt,
    # der die nötigen Einträge enthält
    $liste{$titel}={werte=>[], ptage=>[]}
  }