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