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