$name ='A';
$value =10;
$string = 'my $' . $name . '=' . $value . '; print "result inside eval: $A\n";';
eval ($string) or die "ERROR: $@";
print "result outside eval: $A\n";