#!/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);