This snippet shows what is causing your error

my @a = ();
$a[-1] = 1;
[download]

you are assigning to an array using a negative index that is larger than the size of the array.