How do I solve this Perl Spreadsheet Parseexcel problem

#!/usr/bin/perl5.10 -w
 

 
use warnings;
use Spreadsheet::ParseExcel;
use strict;
use IO::Scalar;
use Data::Dumper;
 
my @etl_val = @ARGV;
 
print "@etl_val" . "\n" ;
 
my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse("/ms/user/s/sayantag/Demo_MF2.xls");
my $worksheet;
my %order_of_flat_file;
my @data_arr;
my $data;
my $etl;
my $path;
my @fin_arr;
 
for  $worksheet ( $workbook->worksheets() ) {
   my ( $row_min, $row_max ) = $worksheet->row_range();
   my ( $col_min, $col_max ) = $worksheet->col_range();
 
   my $row = $row_min + 2;
   while( $row <=$row_max ) {
        print "Row before if statement is $row\n";   
     if ($worksheet->get_cell( $row, 2 )->value ne "ETL") {
        print "Row after if statement is $row\n";
               
     my $etl_cell  = $worksheet->get_cell( $row, 2 );
        if(defined($etl_cell)) {
        $etl = $etl_cell->value;}
 
     my $path_cell = $worksheet->get_cell( $row, 1 );
        if(defined($path_cell)) {
        $path = $path_cell->value;
        $path =~ s/\s$//;
        print "PATH: $path" . "\n";}
 
     my $path_cell0 = $worksheet->get_cell( $row, 0 );
        if(defined($path_cell0)) {
        $path.= $path_cell0->value;
        print $path_cell0->value . "\n";
        print "PATH: $path" . "\n";
        print "ETL: $etl" . "\n";
        print "PATH: $path" . "\n";
       
        }
 
     for my $col ( $col_min+3 .. $col_max ) {
        print "ROW : $row" ."\n";
        print "COLUMN: $col" . "\n";
               
        my $cell = $worksheet->get_cell( $row, $col );
        if (defined($cell) ) {
          my $cell_val = $cell->value;
          print "Cell value is $cell_val\n";
          push(@data_arr, split("\t", $cell_val));
#          @data_arr = join ("\n", @data_arr);
#          print "The first array element is $data_arr[0]\n";
          print "Content of '", $path, "' will be:\n", @data_arr, "\n";
#          foreach my $val(@data_arr) {$val=~ s/\t{1,}/\|/g;}
         } 
        
         }
        
        $row++;    
       }
        else { print "The array looks like @data_arr\n";
              open("FILEHANDLE", '>', $path) or die "Cannot open the file ", $path, ": $!";
              print FILEHANDLE @data_arr ;
              close ("FILEHANDLE");
              @data_arr = ();
              $row = $row+2;
              print "Value of row before calling next is $row\n";
              next;
             
            }
     }
   }
 
#print "The array is @data_arr" . "\n";

Select allOpen in new window