for (@vorhandene_programme)
	{
		$zeile = $_;
		@split_vorhandene_programme = split (/;/, $zeile);
		$laufende_kostenstelle = @split_vorhandene_programme[0];
		$material_nummer = @split_vorhandene_programme[1];
		$gefundene_kostenstelle = @split_vorhandene_programme[2];
		
		if ($laufende_kostenstelle == $gefundene_kostenstelle)
		{
			$zeile_mit_gleicher_kst = $_;
			if ($merker == 0)
			{
				print @gefundene_programme_in_andere_kst;
				@gefundene_programme_in_andere_kst = ();
			}
			print "$zeile_mit_gleicher_kst";
			$merker = 1;
			
		}
		else
		{	
			$merker = 0; 
			$zeile_mit_anderer_kst = $_;

			push (@gefundene_programme_in_andere_kst, $zeile);
		}
	}