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