Select Code to Download

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

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