my $h 		= { "num" => [1], "alpha" => ["a"]}; 
my @vars	= ("num", "alpha");

foreach my $val (@vars) {
	push(@{$h->{$val}}, $val); 
}