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