my @keys = qw{a b c d};
my %hash = map { $_ => 1 } @keys;