@row;
$rowcount = 0;
while (@row = $sth5->fetchrow_array()) {
  $round = $row[0];
  $teamname = $row[1];		## need to put each row into the list.
  $Score    = $row[2];		of lists a variable at a time

push (${list_of_teamdata[$rowcount]}, qw($round $teamname $score);
  $rowcount++;		
       
}