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

##</code><code>##

[0]

##</code><code>##

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