open (OUTFILE, ">$outfile") or
  die "Error: couldn't write to file $outfile: $!";

print (OUTFILE "$_\n") foreach @DATA;

close (OUTFILE);