Convert Visual Basic (VBA) to Perl

I have Visual Basic (VBA) code in an Excel macro which I need translated in Perl. The code executes the following: 1: Allows a user to select any number of excel workbooks 2: transposes data within each workbook, depending on the name of the worksheet. Note: The only change that would need to be made is that the VBA code only allows one worksheet name to be checked. I would like an array incorporated so that several worksheet names are checked in each workbook. I have attached a sample of input data, and sample output. Should the project be accepted, I will forward the VBA macro as well.