my @data=<<EOJ;
(line1 to send to external program)
(line2 to send to external program)
(line3 to send to external program)
EOJ

for (@data){
  print LOG;
  print EXTPROGRAM;
}