#!/usr/bin/perl
use warnings;
use strict;
my @data;


 open(FH1,"<bla1.txt") or die "kann nicht oeffnen bla1 $!";
 @data = <FH1>;
    open(OUTDATEN, ">blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
    print @data;
    close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH1) or die "kann nicht schließen bla1 $!";


  open  (FH2,"<bla2.txt") or die "kann nicht oeffnen bla2 $!";
  @data = <FH2>;
     open(OUTDATEN, ">>blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
     print @data;
     close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH2) or die "kann nicht schließen bla2 $!";


  open  (FH3,"<bla3.txt") or die "kann nicht oeffnen bla3 $!";
  @data = <FH3>;
      open(OUTDATEN, ">>blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
      print @data;
      close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH3) or die "kann nicht schließen bla3 $!";


  open  (FH4,"<bla4.txt") or die "kann nicht oeffnen bla4 $!";
  @data = <FH4>;
      open(OUTDATEN, ">>blagesamt.txt") or die "Fehler beim oeffnen/anlegen: $!";
      print @data;
      close (OUTDATEN) or die "kann nicht schließen blagesamt $!";
  close (FH4) or die "kann nicht schließen bla4 $!";