Select Code to Download

@redi = $responsetextall[$i][$j]{set}{Client}{redirect_uris}

@redi = (
    [....],
);

@redi = @{$responsetextall[$i][$j]{set}{Client}{redirect_uris}}

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