open $h, "| program_A" or die ...;
foreach (@data_files) {
   print $h ...;
   print $h ...;
    ...
}
close($h);