$xx="custtype";
print eval "\$R::$xx";

$erxx = eval "\$R::$xx";
print "R::xx = $errxx\n";