foreach (@studentInfo_with_an_odd_index){ my $studentID = $_; my $queryGrade = "select id from grades where id = '$studentID' and grade = 'A'"; $my sth_queryGrade->prepare($queryGrade); $sth_queryGrade->execute(); while (my @g = $sth_queryGrade->fetchrow){ print ""; print "$g[0]"; print "$student_name_for_this_id"; print ""; } } $sth_queryGrade->finish; $dbh->disconnect;