$a[3] = "Hello";
$b = 'a';
$c = '[3]';
$d = eval "\$$b$c";
print "$d\n";