while(<VP2>)						
{$zaehler++;						
	if ($zaehler < $anfang || $zaehler > $ende)
		{next;}
chomp;							
@auslese1 = split (/\t/, $_); 				

if ($auslese1[$spalte7] eq "j")
	{next;}

{

if ($auslese1[$spalt7] eq "j") 
	  {if ($auslese1[$spalt2] eq "Gewonnen")  
		{print RELRE "$auslese1[$spalt1]\t";}	
	   elsif($auslese1[$spalt2] eq "Verloren")

}
}
}