my @array = qw/A B C D/; my %hash; @hash{@array} = ();