Select Code to Download

!/usr/bin/perl
use strict;
...
Pre:  $[ = 5
($[= 1) array has 4 elements, last index = 4 (5, 6, 7, 8)
Post: $[ = 5