use Data::Dumper;
my %hash = map { $_ => 1 } glob "{0,1}" x 3;
print Dumper \%hash;
__END__
$VAR1 = {
          '011' => 1,
          '010' => 1,
          '111' => 1,
          '000' => 1,
          '101' => 1,
          '001' => 1,
          '100' => 1,
          '110' => 1
        };