Select Code to Download

@vars =("num", "alpha" );
$num=1; 
...
foreach(@vars){
  @$_=$$_;
}

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

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