my @a = ();
$a[0] = \@a;
my $expr = '$a[0]';
my $index;
for ($index = 0; $index < 1000; $index ++) {
    $expr = "\${$expr}[0]";
}
print $expr, "\n";
eval "print $expr";