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";