my %hash = map { ("$_" => 1) } qw(a b c);