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