map { $code .= "\$hash{$_} = 1;\n" } @array; eval "$code";