@hash{@list} = (1) x @list; $hash{$_} = 1 for @list;