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

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