%hash = map { $_=> 1} @array;