for my $k (keys %HoAoA) {
    print "$k\n";
    for my $ar (@{$HoAoA{$k}}) {
        print " "x4 , join " ", @$ar, "\n";
    };
};