Select Code to Download

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

Odd number of elements in hash assignemnt.

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