my %hash; # initialize all elements to 1 @hash{ @array } = (1) x @array; # assign empty string defaults $_ = "" for grep ! defined, ( $foo, $bar, $baz );