$fileName = $_[0];
                 $fFnc = $_[1];

                 $logMsg = new LogMessage();
                 $logMsg->writeLog( $fFnc, "Reading $fileName \n" );

                 $FileData = "";
                 %FileHash = ();
                 %source_headers = ();

                  # For XLSX formats
                  if( $fileName =~ /\.xlsx$/i )
                        {
                                my $myConv = Text::Iconv->new ("utf-8", "windows-1251");
                                my %xlFileData = ();

                                my $myBook = Spreadsheet::XLSX->new( "$fileName", $myConv );

                                if( $myBook )
                                 {
                                   foreach my $sheet (@{$myBook->{Worksheet}})
                                         {
                                           $sheet->{MaxRow} ||= $sheet->{MinRow};
                                           foreach my $row ($sheet -> {MinRow} .. $sheet -> {MaxRow})
                                                 {
                                                   $sheet -> {MaxCol} ||= $sheet -> {MinCol};

                                                   foreach my $col ($sheet -> {MinCol} ..  $sheet -> {MaxCol})
                                                        {
                                                          my $cell = $sheet -> {Cells} [$row] [$col];
// At this place it gives incorrect result
}

##</code><code>##

if($fileName =~ /\.xls$/i )
                        {
                                my $parser = Spreadsheet::ParseExcel->new();
                                my $workbook = $parser->parse( "$fileName" );

                                if( defined $workbook )
                                {
                                  for my $worksheet ( $workbook->worksheets() )
                                                {
                                                        my ( $row_min, $row_max ) = $worksheet->row_range();
                                                        my ( $col_min, $col_max ) = $worksheet->col_range();

                                                        for my $row ( $row_min .. $row_max )
                                                        {

                                                                for my $col ( $col_min .. $col_max )
                                                                {
                                                                        my $cell = $worksheet->get_cell( $row, $col );
// At this place it gives incorrect result while reading.
}