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.
}