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

##</code><code>##

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

##</code><code>##

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