@value = @{$hoh{$newcount}{'individual'}}; #### perl -MData::Dumper -e '%h=(one=>{a=>[1,2,3],b=>[4,5,6]},two=>{b=>[5,6,7],c=>[7,8,9]}); print Dumper(\%h); @a=@{$h{one}{a}}; print Dumper(\@a)' #### $VAR1 = { 'one' => { 'a' => [ 1, 2, 3 ], 'b' => [ 4, 5, 6 ] }, 'two' => { 'c' => [ 7, 8, 9 ], 'b' => [ 5, 6, 7 ] } }; $VAR1 = [ 1, 2, 3 ];