my @auslese_alt;
my @auslese_neu;

READ_LINE:
while (my $line = <VP2>) {
    
    @auslese_alt = @auslese_neu;  # Kopie der letzten Zeile bzw. Felder
    
    $zaehler++;						
    next READ_LINE if $zaehler < $anfang or $zaehler > $ende;
    
    chomp($line);
    
    @auslese_neu = split (/\t/, $line); 				
    next READ_LINE unless @auslese_alt; # noch keine Vor-Daten eingelesen
    
    if ($auslese_alt[$spalt7] eq "j") {
        if ($auslese_neu[$spalt2] eq "Gewonnen"){
            print RELRE "$auslese_neu[$spalt1]\t";
        }	
        elsif ($auslese_neu[$spalt2] eq "Verloren") {
            # mach was anderes
        }
    }
}