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