foreach (@ary) {$hash{$_} = 1; }