>@hash{@Array} = (1) x @Array;
これ何やってるの?