The infinity loop for the below comparison code is my issue. The ADdata sheet first column contain 1-30000 users data and prod_log sheet contain around 501 entries of users those are Nonunique . I will need to collect unique entries from prod_log first column and compare against ADdata sheet first column and update the existing entries of the same file and update the match to other file. The above code seems to be not working. need some suggestion or code snippet.

for my $worksheet1 ( $workbook1->worksheets() ) {
        
        my ( $row_min , $row_max)  = $worksheet1->row_range();
        my ($col_min, $col_max)  = $worksheet1->col_range();
        
        $worksheet->write(0, 0, 'AD Match' , $my_format);
                                $worksheet->write(0, 1, 'APP STATUS' ,
+ $my_format);
                                $worksheet->write(0, 2, 'APP LABEL' , 
+$my_format);
                                    
        
                             my $appssheet = $worksheet1->get_name();
   
   print  "APP Sheet name: $appssheet . \n";
   
       
    for my $row ( $row_min .. $row_max ) {
        for my $col ( $col_min = 0) {
            if ( $appssheet eq $appsshhetname ) {
                my $cell = $worksheet1->get_cell( $row, 0 );
                next unless $cell;

                my $cellA = $cell->value;
                push @cellA, $cellA ;
               # push @cellA, $cellA if $cellA=~ /(\d{9})/;
            }
            my %params = map { $_ => 1 } @cellA;
            my @uniq = keys %params;
            if ( $appssheet eq $ADdata ) {
                for my $row1 ( $row_min .. $row_max ) {
                    for my $col1 ( $col_min = 0) {
                        my $cellB = $worksheet1->get_cell( $row, 0 );
                        next unless $cellB;

                        my $cellC = $cellB->value;
                        $cellC =~ s/@(AD.ABC.COM)//g;
                        print  "USERS: $cellC\n";
                        $worksheet->write($r, 0, $cellC) if exists $pa
+rams{$cellC};
                    }
                }
                $r += 1;
            }
        }
    }
    
    }
[download]