our $lname;
our $fname;
our $title;
our $eid;
our $supervisor;
our $supervisor2;
our $supervisor3;
		
;
my $sth = $dbh->prepare("SELECT fname, lname, title, supervisor FROM employeedb WHERE eid ='employee1';");
$sth->execute or die $sth->errstr;

		while ( my $aref = $sth ->fetchrow_arrayref)

			{
			 my ($fname, $lname, $title, $supervisor) = @$aref;

				#write data to spreadsheet row by row 

					$worksheet0->write(19, 26, $fname, $format_PRDmiddle);
					$worksheet0->write(20, 26, $lname, $format_PRDmiddle);
					$worksheet0->write(21, 26, $title, $format_PRDmiddle);
					$worksheet0->write(22, 26, $supervisor, $format_PRDbottom);
our $supervisor2 = $supervisor;	
			}


my $sth = $dbh->prepare("SELECT fname, lname, title, supervisor FROM employeedb WHERE supervisor ='$supervisor2';");
$sth->execute or die $sth->errstr;

		while ( my $aref = $sth ->fetchrow_arrayref)

			{
			 my ($fname, $lname, $title, $supervisor2) = @$aref;

				#write data to spreadsheet row by row 

					$worksheet0->write(23, 11, $fname, $format_AMCtop2);
					$worksheet0->write(24, 11, $lname, $format_AMCmiddle);
					$worksheet0->write(25, 11, $title, $format_AMCmiddle);
					$worksheet0->write(26, 11, $supervisor2, $format_AMCbottom);
our $supervisor3 = $supervisor2;
			}