my %id_keys=();
  for my $obj (@_)
  {
    for my $key ($obj->tags()->key_list())
    {
	  print "Wert: ".$key." - ".$obj->type.$obj->id()."\n";
	
      %id_keys{$key} = push(%id_keys{$key},{$obj->type.$obj->id()});
    }
  }