my %hash;
my @list=qw(These elements are going to become keys);
map {$hash{$_}++} @list;
#or
$hash{$_}++ foreach @list;
#or with refs...
my $hash_ref =\%hash;
my $array_ref=\@list;
$hash->{$_}++ foreach @$list;