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