Select Code to Download

for my $xls ( 'spreadsheet1.xls', 'spreadsheet2.xls' ){
    my $book = $oExcel->Parse($xls);
...
        }
    }
}

my $oExcel2 = new Spreadsheet::ParseExcel::SaveParser;
my $oBook = $oExcel2->Parse('double_sheet.xls');
...
   $a = $a + 1;
}