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