I'm not particularly proud of this code but this is as far as i could get using multiple file handles
sub push_button4
{
sub push_button1();
$txt->insert('end',"Opened $filename1\n");
sub push_button2();
$txt->insert('end',"Opened $filename2\n");
sub push_button3();
$txt->insert('end',"Opened $filename3\n");
open($filename1,$filename2);
my $parser = Spreadsheet::ParseExcel->new();
my $workbook1 = $parser->Parse($filename1) or die $parser->error;
my $workbook2 = $parser->Parse($filename2) or die $parser->error;
foreach $worksheet($workbook1->worksheet(2),$workbook2->worksheet(2))
{
my ( $row_min, $row_max ) = $worksheet->row_range();
my ( $col_min, $col_max ) = $worksheet->col_range();
for my $row ( 0..10 ) {
for my $col ( $col_min .. $col_max ) {
$txt->insert('end',"$worksheet->{Cells}[$row][1]->{Val
+} \n")
}
}
}
}
Please suggest improvements