for my $keys ( map{ my $k=$_; map[ $k, $_ ],keys %{ $h{ $k}}  } keys %h ) { 
    print "@$keys : ", $h{ $keys->[0] }{ $keys->[1] }; 
};;
a a7 :  7
a a9 :  9
a a8 :  8
a a3 :  3
a a10 :  10
a a2 :  2
a a4 :  4
a a5 :  5
a a6 :  6
a a1 :  1
b b6 :  6
b b7 :  7
b b4 :  4
b b8 :  8
b b9 :  9
b b3 :  3
b b10 :  10
b b1 :  1
b b2 :  2
b b5 :  5
...