%hash = map{($_, $value)} @array;