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