Help for this page

Select Code to Download

Select or download this
```
$[ = 1;
$a[$i]
```
Select or download this
```
use constant BASE => 1;
$a[$i-BASE]
```

Select or download this

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