use strict;
use warnings;
my $a;
$a->{"a"}{"b"}{"c"} = 1;

##</code><code>##

my @a;
a[100] = 2;