push @responsetextall, @responsetext; 

##</code><code>##

 for my $j (0..$#{$responsetextall[$i]}) { 

##</code><code>##

  run_api_call($urlstringapp);
  @responsetext = parse_json ($client->responseContent());
  push @responsetextall, @responsetext;
  $linkheader =  $client->responseHeader("Link");
  print $linkheader;
  if ($linkheader=~ m/next/) {
  (my $link1 = $linkheader) =~ s/ .*? (self)/$1/gx;
  (my $link2 = $link1) =~ s/self/$1/g;
  (my $link3 = $link2) =~ s/</$1/g;
  (my $link4 = $link3) =~ s/>/$1/g;
  (my $link5 = $link4) =~ s/;/$1/g;
  (my $link6 = $link5) =~ s/ /$1/g;
  (my $link7 = $link6) =~ s/=\"/$1/g; 
  (my $link8 = $link7) =~ s/relnext/$1/g;
  (my $link9 = $link8) =~ s/"/$1/g;
  (my $link10 = $link9) =~ s/,/$1/g; 
   print $link10;
   #print $link10;
   #$linkheader =~ s/next/$1/g;
   $urlstringapp = $link10;
   #print $urlstringapp;
   #break(); 
   #print $linkheader;
  }
  } while ($linkheader=~ m/next/);
  #print @responsetextall;
 for my $i (0..$#responsetextall) {
   ## for my $i (0..@$responsetextall) {

  # for my $i (@responsetextall) {
  #print Dumper @responsetextall;
  $responsetextall[$i] =~ s/]\[/,/g;
   #print Dumper @responsetextall;
  ##   for my $j (0..$#{$responsetextall[$i]}) {
	      for my $j (0..$#{$responsetextall[$i]}) {

	#      for my $j (@$responsetextall) {

   		   
       	   my $responseid = $responsetextall[$i][$j]{id};
	       my $responsests = $responsetextall[$i][$j]{status};
		   #$responselastlogin = $responsetextall[$i][$j]{lastLogin};