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