Select Code to Download

print ref($responsetextall[$i][$j]{set}{Client}{redirect_uris}), "\n";

ARRAY

use Data::Dumper;
print Dumper $responsetextall[$i][$j]{set}{Client}{redirect_uris};

#!/usr/bin/env perl

...
for my $i (0 .. $#$redi) {
    print $redi->[$i], "\n";
}

ARRAY
foo
bar
baz

for my $element (@$redi) {
    print "$element\n";
}