my $sth3 = $dbh->prepare( 
   q(
      UPDATE league SET played=?, won=?, fr=?, ag=?, points=? 
      WHERE year=?, sport=?, group=? 
   ) ) or die DBI->errstr;
$sth3->execute( $playeda, $wona, $fora, $againsta,
   $pointsa, $thisyear, $sport, $group ) or die DBI->errstr;