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

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