my @keys = qw(a b c d);
  my %hash; 
  @hash{@keys} = (1) x @keys;