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