my @array = qw(var1 var2 var3);
my %hash;
undef @hash{@array};