my @array = qw/foo bar baz quux/;

    my %hash;
    @hash{@array} = (1) x @array;

##</code><code>##

    @hash{@array} = ();

##</code><code>##

    print "foo is there" if exists $hash{foo};