[...]
  print $fh_out, $prod;
[...]