if ($reecode ne "404") {
	            for my $i (0..$#resext) {
	            $response = $resext[$i]{id};
		        #$reslogin = $resext[$i]{login};
	        	$resfn = $resext[$i]{firstName};
		        $resln = $resext[$i]{lastName};
		        $resdsrip = $resext[$i]{email};
		        $resuser = $resext[$i]{type};
		
		        $worksheet1->write($r, 0, $resfn);
                $worksheet1->write($r, 1, $resln );
                $worksheet1->write($r, 2, $resdsrip);
                $worksheet1->write($r, 3, $resuser);
		 
		         $r += 1;
				

	        }
	
		 
	    }