#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $a;

$a->[0]->{'a'}="000aaa";
$a->[0]->{'b'}="000bbb";
$a->[1]->{'a'}="111aaa";
$a->[1]->{'b'}="111bbb";
$a->[2]->{'q'}->[0]="qqqqq";


print Dumper($a);

$VAR1 = [
          {
            'a' => '000aaa',
            'b' => '000bbb'
          },
          {
            'a' => '111aaa',
            'b' => '111bbb'
          },
          {
            'q' => [
                     'qqqqq'
                   ]
          }
        ];

$a->[0]->{'a'}="000aaa";
$a->[0]->{'b'}="000bbb";
$a->[1]->{'a'}="111aaa";
$a->[1]->{'b'}="111bbb";
$a->[2]->{'q'}->[0]="qqqqq";

sub nodes {
  my ($name, $ref, $path) = @_;
  if (ref $ref eq "ARRAY") {
    nodes($name, $ref->[$_], [@$path, ["array", $_]]) for 0..$#$ref;
  }
  elsif (ref $ref eq "HASH") {
    nodes($name, $ref->{$_}, [@$path, ["hash",$_]]) for sort keys %$ref;
  }
  else {
    print $name;
    for my $p (@$path) {
      print $p->[0] eq "array" ? "->[$p->[1]]" : "->{$p->[1]}"
    }
    print qq/ = "$ref";\n/;
  }
}
nodes(q/$a/, $a, []);