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 $params{$cellC};
                    }
                }
                $r += 1;
            }
        }
    }
	
	}