$hr->{$_} = 1 for @$arr;