my $HoH = { map{ $_ => { @{ $HoA->{$_} } } } keys %{ $HoA } };