Select Code to Download

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

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