Help for this page
while (($k, $lref) = each %HoL){ $HoL{$k}={map {$_,1} @$lref}; }
%HoL=map {map {$_,1} @HoL{$_}} keys %HoL;