> perl
use strict;
use warnings;

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