Help for this page
my @keys = qw{ a b c d }; my %hash = map { $_++ } @keys;
Odd number of elements in hash assignemnt.
my %hash; foreach ( @keys ) { $hash{$_}++; }