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