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