$xx="custtype";
print "$R::$xx" ; ## but this prints only "custtype"???

##</code><code>##

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

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