$bistag = 1;
foreach $y(1..$bistag){ #schleife durch Spieltage
 get "sptag==$y", "paarung";
 get "sptag==$y", "ergebnisse";
 while(get_next("ergebnisse")){

  foreach $x(1..8){
    ##Korbverhältnis der Mannschaft
    ##$hvx{"Korbplus"}+=${"heim$x"};
    ##$v{"hv$x"}{"Korbminus"}+=${"gast$x"};
    #Sieg/Unentschieden/Niederlage der Mannschaft
    if(${"heimerg$x"}<${"gasterg$x"}){
     ${"heim$x"}{$Niederlage}+=1;
    }elsif(${"heimerg$x"}>${"gasterg$x"}){
     ${"heim$x"}{$Sieg}+=1;
    }else{
     ${"heim$x"}{$Unent}+=1;
    }

  }
 }