@array = ('A','B','C','D'); for (@array) { $hash{$_} = undef; } #### my @array = qw/A B C D/; my %hash; @hash{@array} = ();