does anyone have a more _concise_ (read: no temporary) way of doing this?

while (($key, $lref) = each %HoL)
{
    my %h = ();
    @h{@{$lref}} = (1) x @{$lref};
    $HoL{$key} = \%h;
}