while(@spieler)
        {
                my $sp1 = shift(@spieler);
                my $sp2 = shift(@spieler);
                $testpaar = testpaarung($sp1,$sp2,$runde);
                if($testpaar == 0)
                {
                        push (@asql, "INSERT IGNORE INTO runde$runde (spieler1, spieler2, sperg1, sperg2, sp1avg, sp2avg) VALUES ('$sp1', '$sp2', 0, 0, 0, 0);");
                }
                if($testpaar == 1)
                {
                        unshift(@spieler,$sp2);
                        for(my $ii = 1;$ii < @spieler;$ii++)
                        {
                                $testpaar = testpaarung($sp1,$spieler[$ii],$runde);
                                if($testpaar == 0)
                                {
                                        push (@asql, "INSERT IGNORE INTO runde$runde (spieler1, spieler2, sperg1, sperg2, sp1avg, sp2avg) VALUES ('$sp1', '$spieler[$ii]', 0, 0, 0, 0);");
                                        splice(@spieler,$ii,0);
                                        last;
                                }
                        }
                }
        }

sub testpaarung
{
        my $sp1 = shift;
        my $sp2 = shift;
        my $runde = shift;
        my $testsp = 0;
        
        for(my $i = 1; $i < $runde; $i++)
        {
                my $testdb = $dbh->prepare("SELECT COUNT(*) FROM runde$i WHERE (spieler1 = '$sp1' AND spieler2 = '$sp2') OR (spieler1 = '$sp2' AND spieler2 = '$sp1');");
                $testdb->execute();
                $testsp = $testdb->fetchrow_arrayref()->[0];
                $exe->finish;
                last if($testsp > 0);
        }
        
        return($testsp);
}