Help for this page
for($i=1;$i<4;$i++) { ... push(@{$test{obj2}{values}},$i); }
foreach $key (keys %test) { ... . .