Select Code to Download

my %hash;
my @array = qw( ABC DEF GHI );
$hash{$_}++ for (@array); # $_ is the loop variable.

my %hash;
my @array = qw( ABC DEF GHI );
for my $key (@array) {
  $hash{$key}++
}