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