# Name: wx.pl
#!/usr/bin/perl
use warnings;  
use strict;

use OLE::Storage_Lite; 
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;
use Digest::MD5;  
 
# Create a new Excel workbook
  my $workbookx = Spreadsheet::WriteExcel->new('result.xls');
 
# Add a worksheet
  my $worksheet1x = $workbookx->add_worksheet();   

#############################################

  my @arr=qw/cereal.xls pulse.xls fruit.xls/; 

  my $row_min=0;  my $row_max=11000; # out of 65536 rows in xls  
  my $col_min=0;  my $col_max=255;   # out of 256 columns in xls

print "\n
  row_min: $row_min; row_max: $row_max
  col_min: $col_min; col_max: $col_max\n"; 

#########################################   

 foreach my $item (@arr) {    # foreach LOOP starts

      my $parser   = Spreadsheet::ParseExcel->new();
      my $workbook = $parser->parse($item);
 
      if ( !defined $workbook ) { die $parser->error(), ".\n"; }
 
      my $worksheet1=$workbook->worksheet('Sheet1'); # say from sheet 1
 

     for my $row ( $row_min .. $row_max ) {   # for LOOP2 starts 
        for my $col ( $col_min .. $col_max ) { # for LOOP3 starts
 
        my $cell = $worksheet1->get_cell( $row, $col );
        next unless $cell;
            
        print "\n";
        print "### $item\n"; 
        print " Row, Column = ($row, $col)\n";
       
        my $value=$cell->value();
        print "  value: $value\n";

        $worksheet1x->write($row,$col,$value); 

        } # for LOOP3 ends

    }     # for LOOP2 ends

}      # foreach LOOP ends 

###################

print "\n ###### Over ##########\n"; 

exit; 

##</code><code>##

 row_min: 0; row_max: 11000
  col_min: 0; col_max: 255

### cereal.xls
 Row, Column = (0, 0)
  value: No.

### cereal.xls
 Row, Column = (0, 1)
  value: Name

### cereal.xls
 Row, Column = (0, 2)
  value: Sugar (g /100g)

### cereal.xls
 Row, Column = (1, 0)
  value: 1

### cereal.xls
 Row, Column = (1, 1)
  value: Wheat

### cereal.xls
 Row, Column = (1, 2)
  value: 0.3

### cereal.xls
 Row, Column = (2, 0)
  value: 2

### cereal.xls
 Row, Column = (2, 1)
  value: Maize

### cereal.xls
 Row, Column = (2, 2)
  value: 7.7

### cereal.xls
 Row, Column = (3, 0)
  value: 3

### cereal.xls
 Row, Column = (3, 1)
  value: Rice

### cereal.xls
 Row, Column = (3, 2)
  value: 0.1

### pulse.xls
 Row, Column = (0, 0)
  value: No.

### pulse.xls
 Row, Column = (0, 1)
  value: Food

### pulse.xls
 Row, Column = (0, 2)
  value: Sugar (g /100g)

### pulse.xls
 Row, Column = (1, 0)
  value: 1

### pulse.xls
 Row, Column = (1, 1)
  value: Pea

### pulse.xls
 Row, Column = (1, 2)
  value: 6

### pulse.xls
 Row, Column = (2, 0)
  value: 2

### pulse.xls
 Row, Column = (2, 1)
  value: Chickpea

### pulse.xls
 Row, Column = (2, 2)
  value: 11

### pulse.xls
 Row, Column = (3, 0)
  value: 3

### pulse.xls
 Row, Column = (3, 1)
  value: Pigeonpea

### pulse.xls
 Row, Column = (3, 2)
  value: 1.8

### fruit.xls
 Row, Column = (0, 0)
  value: No.

### fruit.xls
 Row, Column = (0, 1)
  value: Name

### fruit.xls
 Row, Column = (0, 2)
  value: Sugar (g /100g)

### fruit.xls
 Row, Column = (1, 0)
  value: 1

### fruit.xls
 Row, Column = (1, 1)
  value: Apple

### fruit.xls
 Row, Column = (1, 2)
  value: 10.12

### fruit.xls
 Row, Column = (2, 0)
  value: 2

### fruit.xls
 Row, Column = (2, 1)
  value: Pear

### fruit.xls
 Row, Column = (2, 2)
  value: 10

### fruit.xls
 Row, Column = (3, 0)
  value: 3

### fruit.xls
 Row, Column = (3, 1)
  value: Pineapple

### fruit.xls
 Row, Column = (3, 2)
  value: 10.0009

 ###### Over ##########