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

##</code><code>##

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