# perl 5.8.8 output
./t1.pl
($[= 1) array has 4 elements, last index = 4
($[= 1) array has 4 elements, last index = 4