my $statement =
    qq(
       UPDATE LEAGUE
       SET played = ?,
           won = ?,
           fr = ?,
           ag = ?,
           points = ?
       WHERE year = ?
         AND sport = ?
         AND group = ?
       );
$dbh->do($statement, {},
	 $playeda, $wona, $fora, $againsta, $pointsa,
         $thisyear, $sport, $group)
	 || die "SQL error in update 1";