my $txt = $table->Cell($i,4)->Range->{Text};
     chomp($txt);  
     $worksheet->write($j+1, 1,$txt);