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