@$hr{@$arr}   = (1) x @$arr;