$[ = 1;
$a[$i]

##</code><code>##

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

##</code><code>##

for (@stories) {
   print $fh $_ if /$fields[1]/;
}