$test{obj1} = \%data; $test{obj2} = \%data; # -or- # # $test{obj1}{values} = \@values; # $test{obj2}{values} = \@values; for($i=1;$i<4;$i++) { push(@{$test{obj1}{values}},$i); } for($i=4;$i<7;$i++) { push(@{$test{obj2}{values}},$i); }