$sport = 'basket ball' $sth5 = $dbh->prepare("SELECT round, teamname, score from trees where sport =\'$sport\' AND year = \'$year\', ORDER BY round DESC") || die "Can't prepare SQL get data statement"; $sth5->execute || die "can't execute sql statement"; #### $rowcount = 0; while (@row = $sth5->fetchrow_array()) { $round = $row[0]; $teamname = $row[1]; $Score = $row[2]; push @ list_of_teamdata, qw("$round $teamname $score"); $rowcount++; } #### round 1 team 1 score 1 round 2 team 2 score 2 round 3 team 3 score 3 round 4 team 4 score 4 #### $compsize = $#list1+1; if ($compSize == 7){ print "\n"; print " \n"; print " \n"; print "image3\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "

\n"; print "

\n"; print "\n"; print "
\n"; print "

\n"; print "

\n"; print "\n"; print "
\n"; print "image3\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; print "\n"; print "\n"; print "\n"; }