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