#!/usr/bin/perl
use warnings;
use strict;
open(FH,"<"ZIEL1.txt"."ZIEL2.txt"."ZIEL3.txt"."ZIEL4.txt") or die $!;           #oeffnen der datei
chomp my $line;
open(OUTDATEN, ">ZIELgesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
for my $FH(@data)
{
   print FH
}
close (OUTDATEN)or die $!;

  close (FH) or die $!;