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

##</code><code>##

ARRAY

##</code><code>##

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

##</code><code>##

#!/usr/bin/env perl

use strict;
use warnings;

my @responsetextall;
$responsetextall[0][0]{set}{Client}{redirect_uris} = [qw(foo bar baz)];
print ref($responsetextall[0][0]{set}{Client}{redirect_uris}), "\n";

my $redi;

$redi = $responsetextall[0][0]{set}{Client}{redirect_uris};

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

##</code><code>##

ARRAY
foo
bar
baz

##</code><code>##

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