Nit: useless use of scalar

@hash{@array}=(1) x @array;
[download]

Works peachy as well.