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