@a = 0..10;
$[ = 2;
warn $a[2];
warn splice(@a, 2, 1, 6);
warn  @a;
__END__
0 at - line 3.
0 at - line 4.
612345678910 at - line 5.