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

##</code><code>##

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