for my $row ( $row_min .. $row_max ) {
            for my $col ( $col_min .. $col_max ) {

                my $cell = $sheettwo->get_cell( $row, $col );
        my $cell1 = $sheetone->get_cell( $row, $col );
                next unless $cell and $cell1;

        my $data = $cell->value();
        my $search = $cell1->value();

                 if ( $data !~ m/$search/ ) {
             print FILE "Row, Col    = ($row, $col)\n";
[download]