my @auslese;

# Speichern
while (my $line = <VP2>) {
    chomp $line;
    push @auslese, [split("\t", $line)];
}

# Zugriff
for my $x (1 .. $#auslese) { # mit 2. Zeile anfangen
    next if $auslese[$x-1][$spalt7] ne "j";
    if ($auslese[$x][$spalt2] eq "Gewonnen") {
        print RELRE "$auslese1[$spalt1]\t";
    }
    elsif ($auslese[$x][$spalt2] eq "Verloren") {
        print RELRE "Du Versager!";
    }
}