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