my @keys = qw{ a b c d };
my %hash = map { $_,1 } @keys;

##</code><code>##

my %hash;
foreach ( @keys ) {
    $hash{$_}++;
}