while (($k, $lref) = each %HoL){
  $HoL{$k}={map {$_,1} @$lref};
}