Select Code to Download

use constant BASE => 101;
$a[$i - BASE] = 'a';

print("The array has ", 0+@a, " elements\n");
for (@a) {
    ...
}

for my $i (101..200) {
    ... $a[$i - BASE] ...
}