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

##</code><code>##

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