my %hash;
for my $bits ( bits(3) ) {
    $hash{$bits} = ...;
}

##</code><code>##

my %hash;
@hash{ bits(3) } = ...;

##</code><code>##

my %hash = map { $_ => ... } bits(3);