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