$R="foo";
print "${R}[0]\n";

##</code><code>##

use vars qw/$R @foo/;
$R="foo";
@foo = (42);
print "${${R}}[0]\n";