my $emc = $dbh->prepare("SELECT a.`function`, b.`fname`, b.`lname`, b.`email`, b.`ophone`, b.`cphone`, b.`geo` FROM `acct` a, `emc` b WHERE a.`cid` ='BBYPRD' AND b.`eid` = a.`eid` order by function;");
$emc->execute or die $emc->errstr;

	my $row = 21;
	my $col = 1;

	$worksheet1->write_row($row++,$col,['Role','First Name','Last Name','Email', 'Office Phone', 'Cell', 'Office'], $format_body1);

	while(my @data = $emc ->fetchrow_array)

	{
	 $worksheet1->write_row($row++,$col,$data[6],$data[5], $data[4],$data[3], $data[2], $data[1], $data[0]);
}