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

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