sub new_agency {
        #...

        return($worksheet, $workbook);
    }

    # And later:

    my ($w, $wb) = new_agency ($header, $acronym);