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