##
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
];