@hash{@array} = ($scalar) x scalar @array;