for (1..5)
  {
   $Var2 = $_;
   $Var1=$Var2;
   print STDERR "$Var1\n";
   $Var2="Test";
  }