Instead of

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

you can use

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