my @tmp;
     open(DATEI, '<', $conf_responsitory) or die "Fehler beim öffnen ($!)";
     while(my $line = <DATEI>){
          push(@tmp,$2) if(/^$zahl2;([^;]+);([^;]+)/); 
     }
     my @Zeilen2 = <DATEI>;
     close(DATEI);