for my $element (@osm_data_platform)
{
    my $refvalue =  $element->tag('ref:svhl')->value();
    my $fingerprint = lc($element->type()).$element->id();
	
dort vorhanden,
	print "\n\nReferenz: ".$refvalue."\n";
	print "Fingerpring: ".$fingerprint."\n";
	if (!defined($platform_id{$refvalue}))
	{
	  print "==> nicht in Liste gefunden !\n";
	  push(@platform_noref, $fingerprint) # fehlerliste ergänzen
	}else{
	  print "==> in RefListe vorliegende !! => weiter checken\n";
- doppelt gibt es nicht !
	  if ($platform_id{$refvalue} ne "")
   	    { 
		  print "===> es liegt bereits eine Referenz vor ! => Fehlerliste fuer mehrfach ergaenzen\n";
		  if ($platform_id{$refvalue} eq "-1"){
		    push @{$platform_err_id{$refvalue}}, $fingerprint ; #<<<<-
		  }
		    $platform_err_id{$refvalue} = $platform_id{$refvalue};
		    $platform_id{$refvalue} = "-1";
		    push @{$platform_err_id{$refvalue}}, $fingerprint; #<<<<-
		  }
	  } else {
	    print "==> jetzt liegt eine Element für diese Ref vor !\n";
	    $platform_id{$refvalue} = $fingerprint;
      }	  
	}