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