%BAZ = map { $_ => 1 } FOO, BAR;