@redi = $responsetextall[$i][$j]{set}{Client}{redirect_uris};
for my $i (0..$#redi) {
     $worksheet->write($r, 6, [ $redi[$i]]);
                }