my $urlstringlog = $apiurllog . $sortor . $filter . $target . $appID . $date2;

$strExcelFilename = "C:/" . "Analysis-Details-automatic-bk" . $date . ".xlsx";

do {

  # Run get the users
  run_api_call($urlstringlog);
  @responsetext = parse_json ($client->responseContent());
  push @responsetextall, @responsetext;
  $linkheader =  $client->responseHeader("link");
  if ($linkheader=~ m/next/) {
  (my $link1 = $linkheader) =~ s/ .*? (self)/$1/gx;
  (my $link2 = $link1) =~ s/self/$1/g;
   print "Post Pagination: $link10";
   $urlstringlog = $link2;
  }
  } while ($linkheader=~ m/next/);
     for my $i (0..$#responsetextall) {
  
     $responsetextall[$i] =~ s/]\[/,/g;
 
        for my $j (0..$#{$responsetextall[$i]}) {
	         @responsests1 = $responsetextall[$i][$j]{tat};	
             $responseid = $responsetextall[$i][$j]{act}{id};
			 $responsdisp = $responsetextall[$i][$j]{act}{Name};
			 $responsalter = $responsetextall[$i][$j]{act}{Id};
			 $responseclientipadd = $responsetextall[$i][$j]{cln}{ipAd};
			 $responseappsdebug = $responsetextall[$i][$j]{deb}{Data};	
			
	for  my $m (0..$#responsests1) {
			for my $n (0..$#{$responsests1[$m]}) {
			$responseapps2id = $responsests1[$m][$n]{id};
			$responseapps2 = $responsests1[$m][$n]{ty};
			$responseapps1 = $responsests1[$m][$n]{Name};
					
				if ( $responseapps2 eq 'AppInstance' ){
				 
				 @responseapps3 = $responsests1[$m][$n]{displayName};
			    $responseapps5 = $responseapps3[0];
				 print "Its Matches Appinstances";
				 $responseapps4 = $responsests1[$m][$n]{Name};
				 			
									
						if ( $responseapps2 eq 'AppUser'){
							
							$responseapps3id = $responsests1[$m][$n]{aId};
						}
		
			 
				}
								
					  
	  push @responseapps3id,$responseapps3id;	
	  push @responseapps5 , $responseapps4;
	  push @responseapps7, $responseapps7;
				
				
						}
						
					
						
						}
						
						push @responsalter, $responsalter;
						  push @responseclientipadd,$responseclientipadd;
						   
					}
				
			 }