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)'