@array = ('A','B','C','D');
for (@array) {
  $hash{$_} = undef;
}