$pfadDerDateien = "C:/Desktop/testfts2";

$pfadDerAusgabeDatei = "C:/Desktop";

@alleTestschritte  = ('Board selected A300',
			                  'Check SerialNumber length 10 Char',
					  'Check SerialNumber',
					  'VCC20_GND_resitor',
					  'VCC3_GND_resitor',
					  'VCC5_GND_resitor',
					  'Current_Consumption_Start_Up',
					  'VCC20_On_Voltage',
					  'VCC3_On_Voltage',
					  'VCC5_On_Voltage',
					  'VCC1V6_On_Voltage 39.Sign290',
					  'VCC1V8_On_Voltage P1497')

opendir(DIR,$pfadDerDateien);
while($datei = readdir(DIR)) 
{	
	for($i=0;$i<@alleTestschritte;$i++)
	{		
                open (in2,'<',"$pfadDerDateien/$datei");
	       open (OUTPUT2,">>$pfadDerAusgabeDatei/FTS2-AATH329324-Datei.txt") or die "konnte $ziel nicht oeffnen,$!\n";
		
		while(<in2>)
		{
			($testschritt3) = $_ =~ /(.*?)\|.*?\|.*?\|.*?\|.*?\|.*?\n/gsm;
			
			if(@alleTestschritte[$i] eq $testschritt3)
			{
				@alleTestschritte[$i] = '0';
			}
		}
	}
	
	for($ii=0;$ii<@alleTestschritte;$ii++)
	{
		print OUTPUT2 "@alleTestschritte[$ii]\n";
		print OUTPUT2 $ii;
	}
	
	print OUTPUT2 "|||\n";
	
	close(FILE);
}
closedir(DIR);