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