Idiomatic array into a hash

@hash{@array} = (1) x @array;