my @list = qw( ... );

 my %hash;
 undef @hash{@list};
 print $_, "\n" for keys %hash;