Something that has not been mentioned in this thread or in for loops is the reversed form of the for/foreach loop.

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

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