# perl 5.10
$ ./t1.pl
($[= 0) array has 4 elements, last index = 3
($[= 0) array has 4 elements, last index = 3