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;
      }   
        }