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