foreach my $k (keys %HoAoA) {
   foreach (@{$HoAoA{$k}}) {
      foreach ($_) {
	     print "$k - @{$_}\n";
      };
   };
};