my (%hash, @array);

@array = ('one', 'two', 'three');

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

if (exists $hash{'one'}) { .... }