if($hash{X}) { ... }
有一个简单的方法来做这个数组到哈希转换？理想情况下，它应该是足够灵活的，以获取一个匿名数组和返回一个匿名哈希。
%hash = map { $_ => 1 } @array;
它不如“@hash {@array} = …”解决方案那么短，但是那些需要散列和数组已经在其他地方定义，而这可以采用匿名数组并返回匿名散列。
这是做数组中的每个元素，并将其与“1”配对。当(密钥，1，密钥，1，密钥1)对的这个列表被分配给散列时，奇数编号成为散列的密钥，并且偶数编号成为相应的值。
