in reply to Re^3: all binary combinationsin thread all binary combinations
my %hash; for my $bits ( bits(3) ) { $hash{$bits} = ...; } [download]
my %hash; @hash{ bits(3) } = ...; [download]
my %hash = map { $_ => ... } bits(3); [download]