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

$zaehler10++;
	if ($zaehler10 < $anfangtv1 || $zaehler10 > $endetv1)
		{next;}

chomp;
@auslese10 = split (/\t/, $_);


if ($auslese10[$spalt7] eq "j")

{

if ($auslese1[$spalt7] eq "j") 

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