sub process_employee {
    my ($worksheet0, $employee, $format, $col, $row) = @_;
    my $sth = $dbh->prepare("SELECT fname, lname, title, supervisor "
                           ."FROM employeedb WHERE eid = ?");
    $sth->execute($employee) or die $sth->errstr;
    my ($fname, $lname, $title, $supervisor);
    while (my $aref = $sth ->fetchrow_arrayref)	{
        ($fname, $lname, $title, $supervisor) = @$aref;
        $worksheet0->write($row++, $col, $fname, $format);
        $worksheet0->write($row++, $col, $lname, $format);
        $worksheet0->write($row++, $col, $title, $format);
        $worksheet0->write($row++, $col, $supervisor, $format);
    }
    return $supervisor
}

my $supervisor = process_employee($worksheet0, $employee1, $format_PRDmiddle, 19, 26);
if (defined $supervisor) {
    process_employee($worksheet0, $supervisor, $format_AMCtop, 23, 11);
}