Select Code to Download

@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' => {
...
          2,
          3
        ];