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