@vars =("num", "alpha" );
$num=1; 
$alpha="a";

foreach(@vars){
  @$_=$$_;
}

##</code><code>##

my %vars=(num => 1, alpha => 'a');

my %h;
foreach(keys %vars){
  $h{$_}=[$vars{$_}];
}