Select Code to Download

for (@HoL{keys %HoL}) {
  $_ = {map {$_, 1} @$_};
}

%HoH = map { $_ => {map { $_, 1 } @{$HoL{$_}}} } keys %HoL;