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
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";
}
##
##
ARRAY
foo
bar
baz
##
##
for my $element (@$redi) {
print "$element\n";
}