Select Code to Download

use strict;
use warnings;
...
  print "\n"; 
  }  # testit

String:$ans=5;              $ans:5          $eret:5
String:$ans=5;              $ans:5          $eret:5
String:$ans=5;              $ans:5          $eret:5
String:$$var5;              $ans:???        $eret:$ans="hithere";